Pascal: Задан массив размерностью 100 случайных чисел из диапазона (-85, +165). Вывести на экран все элементы массива, а также максимальный из последних 25.

var  a:array[1..100]of integer;  i,max,c:integer;    begin      for i:=1 to 100 do       begin         a[i]:=random(251)-85;         if i=76 then           max:=a[i];         if i>76 then           if a[i]>max then             max:=a[i];           write(a[i],' ');      end;       writeln;       writeln(max);   end.

var  a: array[1..100] of integer;  i, max: integer; begin  writeln('Построенный массив ');  for i := 1 to 100 do   begin    a[i] := random(251) - 85;    write(a[i], ' ');    if i = 76 then max := a[i];    if i > 76 then if a[i] > max then max := a[i];  end;  Writeln('|  Максимальный элемент из последних 25-ти чисел массива равен ', max); end.