Задача в 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 mx0 then   if mn