В произвольной матрице[Ai,j] i:=1 to M do, j:=1 to N найти минимальный и максимальные элементы, указать номера строк и номера столбцов на пересечении которых они находятся — Pascal(Паскаль)

uses crt;
var
a:array[1..100,1..100]of integer;
i,j,min,max,n,m,posi,posj:integer;
begin clrscr;
write('n=');
read(n);
write('m=');
read(m);
randomize;
for i:=1 to m do
for j:=1 to n do
a[i,j]:=random(20);
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j],'  ');
  writeln;
 end;
min:=a[1,1];
for i:=1 to m do
for j:=1 to n do
if a[i,j]<min then
 begin
  min:=a[i,j];
  posi:=i;
  posj:=j;
 end;
writeln;
writeln('min=',min,' :[',posi,' ,',posj,']');
writeln;
max:=a[1,1];
for i:=1 to m do
for j:=1 to n do
if a[i,j]>max then
 begin
  max:=a[i,j];
  posi:=i;
  posj:=j;
 end;
writeln('max=',max,' :[',posi,' ,',posj,']');
readkey;
end.