Дана матрица целых чисел A(mxn).Вывести на экран строку и столбец, содержащие её наименьший элемент, а также номера этих строки и столбца. — Pascal(Паскаль)

uses
 crt;
const
 n=4;
 m=4;
Var
 a:array[1..n,1..m] of integer;
 jmin,imin,i,j:integer;
Begin
randomize;
imin:=1;
jmin:=1;
For i:=1 to n do
 begin
  For j:=1 to m do
   begin
    a[i,j]:=random(10)-3;
    write(a[I,j]:4);
    If a[i,j]<a[imin,jmin] then
    begin
     imin:=i;
     jmin:=j;
    end;
   end;
  writeln;
 end;
writeln;
For i:=1 to n do
 Write(a[imin,i]:3);
writeln;
For j:=1 to m do
 Writeln(a[j,jmin]);
Writeln('MIN[',imin,',',jmin,']:=',a[imin,jmin]);
Readln;
End.