задача на массивы

[Withoutemotions]

Всем привет! Помогите пожалуйста!
Задание: Даны натуральное число n, действительные числа a1, …, an

нужно вывести так: наименьшее (наибольшее) из нечетных и количество четных чисел, входящих в последовательность.

[cheef]

program da;
uses crt;
const
N=3;{Сколько хочешь элементов в массиве, чтобы было.}
var a:array[1..N] of integer;
b,min,max,i:integer;
begin
clrscr;
for i:=1  to N do begin
readln(a[i]);
end;
max:=0;
min:=32000;{Тк. integer, то это максимальное число.}
b:=0;
for i:=1 to N do begin
if a[i] mod 2 <> 0 then begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
if a[i] mod 2 = 0 then b:=b+1;
end;
writeln(max,'Максимальный элемент массива из нечётных');
writeln(min,'Минимальный элемент массива из нечётных');
writeln(b,'Количество чётных элементов!');
readln;
end.

[Withoutemotions]

Спасибо большое за уделенное мне время, но вот почему то пишет ошибку "неверное выражение" в этой строке:

writeln(max',Максимальный элемент массива из нечётных');

и ставит курсор после max

[ROMA2PVT]

writeln(max ',Максимальный элемент массива из нечётных');

вот так

writeln(max,'Максимальный элемент массива из нечётных');

[Withoutemotions]

эх совсем я в паскале не шарю, даж сам такую ошибку не заметил
Супер! Спасибо вам большое!

[Develop]

Вместо:

min:=32000;{Тк. integer, то это максимальное число.}

лучше написать

min:= High(Integer);

т.к. в разных компиляторах максимальное значение Integer может отличаться.

[cheef]

Develop, спасибо я не знал