Задача в pascal:

Даны n чисел из отрезка (-20; 20). Найти максимальное четное и максимальное нечетное числа

Var

n, i, mn, mx, a:integer;

begin

writeln ('Vvedite n:');

readln (n);

writeln ('Vvedite chisla iz otrezka (-20; 20) : ');

mn:=0;

mx:=0;

for i:=1 to n do

begin

readln (a);

if (a mod 2) = 0 then

if mx
if (a mod 2) 0 then

if mn
end;

writeln ('Maximalnoe chetnoe = ', mx);

writeln ('Maximalnoe nechetnoe = ', mn);

readln ();

end.