В массиве указать индексы всех элементов имеющих наибольшее и наименьшее значение - Turbo Pascal

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

в квадратном числовом массиве указать индексы всех элементов имеющих наибольшее и наименьшее значение.

Решение задачи: «В массиве указать индексы всех элементов имеющих наибольшее и наименьшее значение»

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

uses crt;
const n=4 ;
var a,b:array[1..т,1..n] of integer;
i,j,idx1,idx2,idx3,idx4,max,min,k:integer;
BEGIN
clrscr;
 for i:=1 to n do
  for j:=1 to n do
   a[i,j]:=random(10)+7;
 
   for i:=1 to n do
    begin
    for j:=1 to n do
     write(a[i,j]:4);
      writeln;
      end;
       writeln;
 
       min:=a[1,1];idx1:=1;idx2:=1;
       max:=a[1,1];idx3:=1;idx4:=1;
       for i:=1 to n do
        for j:=1 to n do
         if a[i,j]>max then
         begin
          max:=a[i,j];
          idx1:=i;
          idx2:=j;
          end
           else
            if a[i,j]<min then
             begin
              min:=a[i,j];
              idx3:=i;
              idx4:=j;
              end;
            writeln('MAX = ',max,' координаты  ',idx1,' ',idx2);
            writeln('MIN = ',min,' координаты  ',idx3,' ',idx4);
            writeln;
 
 
 
 
readkey;
END.

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

Создается массив a типа array[1..т,1..n] of integer, где т - количество строк, а n - количество столбцов.
Заполняется случайными числами от 1 до 10 (включительно) каждая ячейка массива a.
Вычисляются минимальное (min) и максимальное (max) значения в массиве a.
Вычисляются индексы ячеек с минимальным и максимальным значением (idx1, idx2 для min, и idx3, idx4 для max).
Выводится на экран минимальное и максимальное значения, а также их индексы.
Программа завершается после ввода ключевой клавиши.