Найти максимальный элемент матрицы и вывести на экран - Pascal

Формулировка задачи:

Дан целочисленный массив 10 на 10. Найти максимальный элемент и вывести на экран a[i,j]=(максимальное число).

Решение задачи: «Найти максимальный элемент матрицы и вывести на экран»

Листинг программы

const n=10;
var a:array  of array of integer;
i,j,maxij,maxi,maxj:integer;
begin
randomize;
setlength(a,n,n);
for i:=0 to n-1 do
begin
writeln;
 for j:=0 to n-1 do
 begin
  a[i,j]:=Random(100)-50;
  write(a[i,j],' ');
  end;
  end;
  writeln;
for i:=0 to n-1 do
 for j:=0 to n-1 do
  if a[i,j]>maxij then begin maxij:=a[i,j]; maxi:=i; maxj:=j; end;
 writeln('a[',maxj+1,',',maxi+1,'] = ',maxij);
 readln;  //писал на delphi console
 end.    //так что возможны ошибки

Объяснение кода листинга программы

Объявляется константа n со значением 10.
Объявляются переменные a (массив массивов целых чисел), i, j, maxij, maxi, maxj, все эти переменные имеют тип integer.
Randomize используется для инициализации генератора случайных чисел.
Используется функция Setlength для установки размера массива a на n x n.
Выполняется вложенный цикл начинающийся с i от 0 до n-1, а затем вложенный цикл, начинающийся с j от 0 до n-1 для заполнения матрицы случайными числами.
В первом цикле выводится каждый элемент массива a на экран.
Затем выполняется проверка каждого элемента матрицы a, чтобы найти максимальный в переменной maxij. Если элемент больше текущего значения maxij, оно заменяется, и также сохраняются индексы строки и столбца с максимальным элементом.
Выводятся координаты и значение максимального элемента a[maxj+1][maxi+1] = maxij на экран.
Считывается ввод с клавиатуры с помощью функции readln.
Программа завершается (end). Примечание: код написан на языке Pascal.