Найти наибольшее значение pазности между pядом cтоящими элементами

Program Massiv;
Uses Crt;
const n=100;
var a:array[1..n,1..n] of real; i,j,k,size:integer; sum:real;
begin
     Writeln('Введите размерность матрицы');
     Readln(size);
     Randomize;
     Writeln('Матрица:');
     for i:=1 to size do
         begin
              for j:=1 to size do
                  begin
                       a[i,j]:=random(18)-6;
                       write(a[i,j],'   ');
                  end;
         Writeln();
         end;
     sum:=0;
     for i:=1 to size do
         for j:=1 to size do
             if (i+j=size+1) then
             sum:=sum+a[i,j];
     Writeln('Сумма элементов побочной диагонали: ',sum);
end.

program z;
var i,max,r,n:integer;
a:array [1..100] of integer;
begin
     write('Ââåäèòå n: ');
     readln(n);
     writeln('Ââîä ýëåìåíòîâ ìàññèâà');
     for i:=1 to n do
         begin
              write('a[',i,']=');
              readln(a[i]);
         end;
     writeln('Âûâîä ýëåìåíòîâ ìàññèâà');
     for i:=1 to n do
         write(a[i],' ');
     writeln;
     max:=a[1]-a[2];
     for i:=1 to n-1 do
         if a[i]-a[i+1]>max
            then
                max:=a[i]-a[i+1];
     writeln('Íàèáîëüøåå çíà÷åíèå ðàçíîñòè ìåæäó ðÿäîì ñòîÿùèìè ýëåìåíòàìè - ',max);
end.

program z;
var i,max,r,n:integer;
a:array [1..100] of integer;
begin
     write('Введите n: ');
     readln(n);
     writeln('Ввод элементов массива');
     for i:=1 to n do
         begin
              write('a[',i,']=');
              readln(a[i]);
         end;
     writeln('Вывод элементов массива');
     for i:=1 to n do
         write(a[i],' ');
     writeln;
     max:=abs(a[1]-a[2]);
     for i:=1 to n-1 do
         if abs(a[i]-a[i+1])>max
            then
                max:=abs(a[i]-a[i+1]);
     writeln('Наибольшее значение разности между рядом стоящими элементами по модулю - ',max);
end.

Program Raznost;
const n=10;
var
a:array[1..n] of real; i:integer; k,m:real;
begin
Randomize;
for i:=1 to n do
begin
a[i]:=Random(5);
Write(a[i],' ');
end;
Writeln();
m:=0;
for i:=1 to n do
if i<10 then
begin
k:=a[i+1]-a[i];
if (k>m) then
m:=k;
Write(m,'    ')
end;
Writeln('Наибольшая разность - ',m);
end.

Program Raznost;
const n=10;
var
a:array[1..n] of real; i:integer; k,m:real;
begin
Randomize;
for i:=1 to n do
begin
a[i]:=Random(5)-5;
Write(a[i],' ');
end;
Writeln();
m:=0;
for i:=1 to n do
if i<n then
begin
k:=abs(a[i+1]-a[i]);
if (k>m) then
m:=k;
Write(m,'    ')
end;
Writeln('Наибольшая разность - ',m);
end.