наибольшее и наименьшее значения модуля разности между соседними элементами

program z;
 
uses
  CRT;
const
  n = 30;
var
  i: integer;  {Вспомогательная переменная для организации циклов}
  max, min: integer; {Переменные для хранения значений максимальной и минимальной по модулю разницы}
  s: integer; {Промежуточная переменная для хранения результата вычисления разницы между элементами}
  a: array [1..n] of integer;   {Переменная для хранения массива}
begin
  writeln('Ввод элементов массива:');
  for i:= 1 to n do
    begin
      write('a[',i,']=');
      readln(a[i]);            {Ввод значений элементов в массив}
    end;
  clrscr;
  writeln('Исходный массив:');
  for i:= 1 to n do
    write(a[i]:5);             {Вывод элементов в консоль}
  writeln;
  min:= abs(a[1]-a[2]);        {Начальная установка переменной для поиска минимального значения}
  max:= abs(a[1]-a[2]);        {Начальная установка переменной для поиска максимального значения}
  for i:= 1 to n-1 do
    begin
      s:= abs(a[i]-a[i+1]);      {Вычисление разницы по модулю между соседними элементами}
      if s > max then            { Условие для выбора наибольшей разницы между элементами}
        max:= s;                 { Запоминание найденного значения}
      if s < min then            { Условие для выбора наименьшей  разницы между элементами}
        min:= s;                 { Запоминание найденного значения}
    end;
  writeln('Наибольшее значение разности по модулю между соседними элементами: ',max);
  writeln('Наименьшее значение разности по модулю между соседними элементами: ',min);
  readln;
end.