матрица. нахождение строки и столбца

[giggles]

в матрице С [5x5] найти строку и столбец, в которых находится минимальный элемент, и заменить элементы этой строки йна элементы этого столбца.
=\

[danekne]

max:=a[1,1];
for i:=1 to n do
for j:=1 to n do
if a[i,j]<min then
begin
k:=i;
t:=j;
end;
for i:=1 to n do
a[k,i]:=a[i,t];

Гдей то так. Не проверял, должно работать для квадратной матрицы. a - массив размером n*n, k,t - номер строки, столбца содержащего минимальный элемент