Дан одномерный массив 10 целых чисел. Отыскать наивеличайшую и наименьшую разность

program zz1;

const n = 10;  //задаем количество элементов в массиве

var  i, max1, min, i1, i2, j1, j2:integer; // задаем переменные целого типа

m:array [1..n] of integer;

begin

for i:=1 to n do // записываем в массив числа случайным образом

m[i]:=random(21);

for i:=1 to n do  //выводим массив на экран

write(m[i], );

writeln;    // переходим на новейшую строку для вывода ответа

max1:=0;

for i:=1 to n-1 do  // обретаем максимальный элемент

if m[i]-m[i+1]gt;max1 then  begin max1:=m[i]-m[i+1];i1:=i;i2:=i+1;end;

min:=1000000; //задаем изначальное значение для малого элемента

for i:=1 to n-1 do  // организуем цикл, в котором переберем все числа массива

if m[i]-m[i+1] lt; min then begin min:=m[i]-m[i+1];j1:=i;j2:=i+1;end;

writeln(наибольшая разность меж соседями = , max1, номера соседей , i1, , i2);  // выводим ответ

write(минимальная разность меж соседями = , min, номера соседей , j1, , j2);

end.