Вывод строки и столбца в массиве

[westlinex]

Подскажите пожалуйста как можно вывести строку и столбец матрицы, содержащей минимум.
Минимум я найти могу номер строки и столбца вывожу, а как вывести всю строку и весь столбец, а если еще их несколько(минимумов)?

program n_4;
var
A:array[1..10,1..10] of integer;
i,j,n,m,min:integer;
begin
write('vvedite m=');readln(m);
write('vvedite n=');readln(n);
randomize;
for i:=1 to m do begin
for j:=1 to n do begin
A[i,j]:=random(99);
end; end;
min:=A[1,1];
for i:=1 to m do begin
for j:=1 to n do
if A[i,j]<=min then min:=A[i,j];
end;
writeln('  matrica A');
for i:=1 to m do begin
for j:=1 to n do
write(A[i,j]:4);writeln;end;
for i:=1 to m do begin
for j:=1 to n do
if A[i,j]=min then writeln('A[',i,',',j,']=',min);
end;
writeln;readln;
end.