Дана действительная квадратная матрица порядка N. Найти максимальный элемент среди элементов, расположенных ниже элементов главной диагонали — Pascal(Паскаль)

program shizik1;

uses crt;

var
  n, i, j, max: integer;
  a: array [1 .. 20, 1 .. 20] of integer;

begin
  clrscr;
  write('n=');
  readln(n);
  randomize;
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a[i, j] := random(20);
      write(a[i, j]:3);
    end;
    writeln;
  end;
  readln;
  max := a[2, 1];
  for i := 2 to n do
    for j := 1 to i - 1 do
      if a[i, j] > max then
      begin
        max := a[i, j];
      end;
  write('max=', max);
  readln;

end.