Определить какой элемент двухмерного массива больше, расположенный в верхнем левом или нижнем правом углу — Pascal(Паскаль)

program massiv;
uses crt;
var
a:array[1..100,1..100] of integer;
i,j,n,m:integer;
begin
  clrscr;
  randomize;
  writeln('введите N и M через пробел ');
  readln(n,m);
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      a[i,j]:=random(101)-50;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  if a[1,1]>a[n,m] then writeln('элемент в верхнем левом углу больше!')
  else writeln('элемент в правом нижнем углу больше!');
  readln;
end.