Задан целочисленный одномерный массив A из N элементов. Найти номер первого максимального значения - PascalABC.NET - Ответ 11951943

uses crt;
var a:array[1..100] of integer;
    n,i,a1,imx,k:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива до '100,' n=');
readln(n);
until n in [1..100];
writeln('Исходный массив:');
k:=0;
for i:=1 to n do
 begin
  a[i]:=9+random(30);
  write(a[i]:4);
  if (a[i]<a1)and(a[i] mod 9=0) then k:=i
 end;
writeln;
write('Введите число для поиска a1=');
readln(a1);
k:=0;
for i:=1 to n do
if (a[i]<a1)and(a[i] mod 9=0) then k:=i;
if k=0 then write('Нет элементов, кратных 9 и меньших ',a1)
else if k=n then write('Элемент, кратный 9 и меньший ',a1,' последний')
else
 begin
  writeln('Индекс последнего элемета, кратного 9 и меньшего ',a1,'=',k);
  imx:=k+1;
  for i:=k+2 to n do
  if a[i]>a[imx] then imx:=i;
  writeln('Первый максимальный элемент после последнего элемета, кратного 9 и меньшего ',a1);
  write('=',a[imx],' его номер=',imx);
 end;
readln
end.