Одномерный массив

Задать массив из W элементов. Найти минимум и максимум нечётных элементов массива, и мин., макс. чётных элементов.
Что-то написал, но у меня не работает чётность.нечётность

program uzd;
var a:array[1..100]of integer;
N,i,min,max,z,y,m,k:integer;
begin
write('N -> ');
repeat
read(N);
if (N<1) or (N>100)
then writeln('введите другое число');
writeln('N ->');
until (N>=1) and (N<=100);
readln;
write('Input array -> ');
m:=0;
k:=0;
for i:=1 to N do read(a);
readln;
m:=m+1;
k:=k-1;
min:=1;
max:=2;
if odd(m) then
for i:=1 to N do if a > a[max] then max:=i else if a < a[min] then min:=i;
writeln('нечёных MAX = A[',max,'] = ', a[max]);
writeln('нечётных MIN = A[',min,'] = ', a[min]);
if k mod 2=0 then
for i:=1 to N do if a > a[max] then max:=i else if a < a[min] then min:=i;
writeln('чётных MAX = A[',max,'] = ', a[max]);
writeln('чётных MIN = A[',min,'] = ', a[min]);
readln;
end.