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.