Вывести индексы максимального и минимального элементов матрицы

Program Altrex;
Uses crt;
var i,j,n,max,min:INTEGER;
    a:array[1..10,1..10] of integer;
begin
randomize;
clrscr;
Writeln('Исходный:');
Readln(n);
For i:=1 to n do
begin
For J:=1 to n do
begin
a[i,j]:=random(10)-5;
Write(a[i,j]:4);
end;
Writeln;
end;
Writeln;
max:=a[1,2];
min:=a[2,1];
For i:=1 to n-1 do
For j:=i+1 to n do
if a [i,j]>max then max:=a[i,j];
For i:=2 to n do
For j:=1 to i-1 do
if a[i,j]<min then min:=a[i,j];
Writeln('Максимальный:',max);
Writeln('Минимальный:',min);
end.

const
  m = 10;
 
var
  a: array[1..m] of integer;
  min, imin, i, imax, max, p: integer;
 
begin
  randomize;
  writeln('Создание массива и его вывод');
  for i := 1 to m do
  begin
    p := random(21);
    a[i] := p - 10;
    write(a[i]:4);
  end;
  max := a[1];
  min := a[1];
  imax := 1;
  imin := 1;
  for i := 2 to m do
  begin
    if max < a[i] then
    begin
      max := a[i];
      imax := i
    end;
    if min > a[i] then
    begin
      min := a[i];
      imin := i
    end;
  end;
  
  writeln;
  writeln('значение максимального=', max);
  writeln('Индекс максимального=', imax);
  writeln('значение минимального=', min);
  writeln('Индекс минимального=', imin);
  writeln('Для завершения работы нажмите <Enter>');
  readln
end.

program pr;
 
uses
  crt;
 
type
  mas = array [1..30, 1..30] of integer;
{процедура поиска max, min}
procedure search(a: mas; n, m: integer; var max, min, imax, jmax, imin, jmin: integer);
var
  i, j: integer;
begin
  max := a[1, 1];
  jmax := 1; imax := 1;
  min := a[1, 1];
  jmin := 1; imin := 1;
  for i := 1 to n do
    for j := 1 to m do
      if a[i, j] > max then
      begin
        max := a[i, j];
        imax := i;
        jmax := j
      end
      else if a[i, j] < min then
      begin
        min := a[i, j];
        imin := i;
        jmin := j
      end;
end;
 
{основная часть}
var
  a: mas;
  n, m, j, i, mx, mn, imx, jmx, imn, jmn: integer;
 
begin
  clrscr;
  writeln('Введите размеры массива');
  readln(n, m);
  writeln('Введите ', n * m, ' элементов массива');
  for i := 1 to n do
    for j := 1 to m do
      read(a[i, j]);
  readln;
  clrscr;
  writeln('Матрица:');
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(a[i, j]:4);
    writeln;
  end;         {ввод элементов массива}
  search(a, n, m, mx, mn, imx, jmx, imn, jmn);
  writeln('Максимальный элемент a[', imx, ',', jmx, ']=', mx:2);
  writeln('Минимальный элемент  a[', imn, ',', jmn, ']=', mn:2);
  readkey
end.