Найти наибольший четный элемент массива и поменять его местами с наименьшим нечетным элементом. Если одного из таких элементов нет, то всем элементам массива присвоить значение, равное нулю. Паскальчик Срочно

program z1;

const n =10;

var a:array[1..n]of integer;

i,i1,i2,z:integer;

begin

i1:=1;

i2:=1;

write('Массив: ');  

for i:= 1 to n do  

begin

a[i]:= random(199)-99;

write(a[i]:5);  

if a[i] mod 2 = 0 then i2:=i;

if a[i] mod 2 <> 0 then i1:=i

end;

writeln;

for i:= 1 to n do  

begin

if (a[i]>a[i2]) and (a[i] mod 2 = 0) then i2:=i;

if (a[i]<a[i1]) and (a[i] mod 2 <> 0) then i1:=i

end;

if (a[i1] mod 2 = 0) or (a[i2] mod 2 <> 0) then for i:= 1 to n do a[i]:=0

else

begin

z:=a[i1];

a[i1]:=a[i2];

a[i2]:=z

end;

write('Массив: ');  

for i:= 1 to n do write(a[i]:5)

end.