Помогите пжлст.
Даны натуральные число n и целые числа a1, a2,...,an. Верно ли, что максимальное из чисел ai превышает минимальное не более чем на 25

//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 a>max then max:=a;    if a<min then min:=a;    write(a:4);  end;  writeln;  if max<=(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