Исправьте программу в паскале!
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.