Для матрицы A(n×n) определить разность между максимальными элементами верхней и нижней треугольных матриц
Паскаль,помогите пожалуйста,уже час раздумываю над программой

const  n = 8;var  i, j, umax, lmax: integer;  a: array[1..n, 1..n] of integer;begin  Randomize;  writeln('Исходный массив');  for i := 1 to n do   begin    for j := 1 to n do     begin      a[i, j] := Random(40) - 20;      write(a[i, j]:4)    end;    writeln;  end;  umax := -100;  for i := 1 to n do    for j := i to n do      if umax < a[i, j] then umax := a[i, j];  lmax := -100;  for i := 1 to n do    for j := 1 to i do      if lmax < a[i, j] then lmax := a[i, j];  writeln('Разность максимумов равна ', umax - lmax)end.Тестовое решение:Исходный массив  -5  18 -13   1 -16   5   0 -13   4 -18 -17 -14   2  10  -2 -15 -15  -8  -6 -16 -10 -12 -18 -17 -18   6  11  -5   4  -6  -1   1  10  14   3  -7   2  11  10  -1   6  -2 -20   1   4   9  13  -4  -9  -7   4  -6 -12   3   1 -14  15 -16  -1  -3  13 -15   3 -10Разность максимумов равна 3