Исправьте программу в паскале абс!!

const

N = 10;

var

a : array [1..N] of integer;

i : integer;

imax : integer;

d : integer;

begin

{Заполнение массива а случайными числами}

randomize;

for i:=1 to N do

a[i]:=random(100);



{Вывод массива а на экран}

writeln('Исходный массив: ');

for i:=1 to N do

write(a[i]:6);

writeln;



{Нахождение индексов наибольшего эемаентa

массива}

imax:=1; {Индекс наибольшего элемента}

for i:=2 to N do

begin



if a[i] > a[imax] then

imax := i;

end;

begin

if a[i] mod 2 = 0 then

writeln('максимальное значение чётное')

else

writeln('максимальное значение не чётное')

end;



{Вывод ответа}

writeln('Наибольший элемент a[',imax,']=',a[imax]);

end.