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

Program AHB;
uses crt;
type numb =record
num_x:integer;
num_y:integer;
end;
var
A:array [1..1000,1..1000] of integer;
i,j,g,q,min,max:integer;
n_min,n_max:numb;
 
begin
randomize;
clrscr;
Write ('Введите количество строк ');Readln (q);
Write ('Введите количество стлбцов ');Readln (g);
for i:=1 to q do
 begin
  for j:=1 to g do
  begin
   a[i,j]:=random(100)-random(100);
   write (a[i,j],' ');
  end;
 Writeln;
 end;
 
 min:=a[1,1];
 max:=a[1,1];
 for i:=1 to q do
  for j:=1 to g do
   begin
    if min>=a[i,j] then begin min:=a[i,j]; n_min.num_x:=i;n_min.num_y:=j; end;
    if max<=a[i,j] then begin max:=a[i,j]; n_max.num_x:=i;n_max.num_y:=j; end;
   end;  
   Writeln ('Максимальный ',max,' A[',n_max.num_x,',',n_max.num_y,']');
   Writeln ('Минимальный ',min,' A[',n_min.num_x,',',n_min.num_y,']');
  end.

const
 n = 3;
 m = 4;
var
 arr: array[1..n, 1..m] of integer;
 i_max, j_max, i_min, j_min: integer;
 i, j: byte;
begin
 i_min:=1; j_min:=1;
 i_max:=1; j_max:=1;
 writeln('Матрица: ');
  for i:=1 to n do
   begin
    for j:=1 to m do
     begin
      arr[i, j]:=random(20)+1;
      write(arr[i, j]:4);
       if arr[i, j] > arr[i_max, j_max] then
        begin
         i_max:=i;
         j_max:=j;
        end
       else if arr[i, j] < arr[i_min, j_min] then
        begin
         i_min:=i;
         j_min:=j;
        end;
    end;
   writeln;
  end;
 writeln('Максимальный элемент: ', arr[i_max, j_max], ';'); 
 writeln('Его индексы: arr[', i_max, ', ', j_max, '];');
 writeln('Минимальный элемент: ', arr[i_min, j_min], ';');
 writeln('Его индексы: arr[', i_min, ', ', j_min, '];');
end.