Помогите пжлст.Даны естественные число n и целые числа a1, a2,...,an. Правильно

И что необходимо сделать?

//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
var a,n,i,min,max:integer;
begin
  min:=maxint; max:=-maxint;
  write('Число частей последовательности ');
  readln(n);
  for i:=1 to n do begin
    a:=random(61)-30;
    if agt;max then max:=a;
    if alt;min then min:=a;
    write(a:4);
  end;
  writeln;
  if maxlt;=(min+25) then writeln ('наибольшее ',max ,' превышает малое ',min,' не более чем на 25')
  else writeln ('максимальное ',max ,' превосходит малое ',min,' более чем на 25');
 end.

Тест 1
Число частей последовательности 3
  -9   2  10
наибольшее 10 превышает минимальное -9 не более чем на 25

Тест 2
Число элементов последовательности 5
  10 -17  13  26  -2
максимальное 26 превосходит малое -17 более чем на 25