Дан двумерный массив. Необходимо найти самое маленькое число и указать его местоположение ( x, y )

uses crt;
var a:array[1..20,1..20] of integer;
    n,m,i,j,min,imin,jmin:integer;
begin
clrscr;
randomize;
write('Kolichestvo strok n=');readln(n);
write('Kolichestvo stolbcov m=');readln(m);
writeln('Ishodnaya matrica:');
min:=maxint;imin:=1;jmin:=1;
for i:=1 to n do
  begin
    for j:=1 to n do
      begin
        a[i,j]:=random(20);
        write(a[i,j]:4);
        if a[i,j]<min then
          begin
            min:=a[i,j];
            imin:=i;
            jmin:=j;
          end;
      end;
    writeln;
  end;
write('Min el=',min,' a[',imin,',',jmin,']');
readln
end.