Дана матрица Z размером mхn. Составить процедуру нахождения и вывода номера строки и номера столбца на пересечении которых расположен наибольший и наименьший элемент матрицы Z- Pascal(Паскаль)

const 
n=10;
m=8;
var
a:array[1..n,1..m] of integer;
i,j:integer;
max,imax,jmax,min,imin,jmin:integer;
begin
for i:=1 to n do
    begin 
        for j:=1 to m do
          begin
            a[i,j]:=random(40);
            write('  ',a[i,j]:3);
          end;
        writeln();
    end;
writeln('--------') ; 

max:=a[1,1]; imax:=1; jmax:=1; 
min:=a[1,1];  imin:=1; jmin:=1;
for i:=1 to m do begin
for j:=1 to n do
if a[i,j]>max then begin max:=a[i,j];  imax:=i;  jmax:=j;end;
if a[i,j]<min then begin min:=a[i,j];  imin:=i;  jmin:=j; end;
end;

writeln('--------(',imax,', ',jmax,')') ; 

writeln('--------(',imin,', ',jmin,')') ; 
    
end.