Поиск максимального значения элемента в матрице

{ матрица максимального размера 100х100 элементов }
type matrix = array [1..100,1..100] of integer;
 
var
  a: matrix; { матрица }
  m,n: integer; { ее размеры }
  maxi, maxj: integer; { индексы максимального элемента }
  i,j: integer; { счетчики циклов }
 
begin
  { вводим размеры матрицы }
  Write('Введите количество строк(1 - 100): ');
  ReadLn(m);
  if (m<1) or (m>100) then
  begin
    WriteLn('Некорректный ввод...');
    Halt(1);
  end;
  Write('Введите количество столбцов(1 - 100): ');
  readln(n);
  { если размеры недопустимые - выход }
  if (n<1) or (n>100) then
  begin
    WriteLn('Некорректный ввод...');
    Halt(1);
  end;
  { генерируем случайным образом матрицу }
  WriteLn('Матрица: ');
  for i := 1 to m do
  begin
    for j := 1 to n do
    begin
      a[i,j] := Random(101) - 50; { от -50 до 50 }
      Write(a[i,j], #9); { табуляция для выравнивания столбцов }
    end;
    WriteLn;
  end;
  { поиск максимального элемента }
  maxi := 1; {Невозможен поиск максимального элемента из отрицательных чисел}
  maxj := 1; {Невозможен поиск максимального элемента из отрицательных чисел}
  for i := 1 to m do
  begin
    for j := 1 to n do
    begin
      { если текущий элемент больше максимального }
      if a[i,j] > a[maxi,maxj] then
      begin
        { обновляем индексы }
        maxi := i;
        maxj := j;
      end;
    end;
  end;
  { результат }
  WriteLn('Найбольший элемент: [', maxi, ',', maxj, '] = ', a[maxi,maxj]);
  Readln;
end.