Построение, преобразование и обработка матриц

[Tatyana Kur]

В данной действительной матрице размера n*m поменять местами строку, содержащую элемент с наибольшим значением, со строкой, содержащей элемент с наименьшим значением. Предполагается, что эти элементы единственны.

[nesss]

min=matrix[0][0];
max=matrix[0][0];
for(int i=0;i<n;i++)
for(int k=0;k<m;k++)
{
if(matrix[i][k]<min)
{
min=matrix[i][k];
int i1=i;
}
if(matrix[i][k]>max)
{
max=matrix[i][k];
int i2=i;
}
}

for(int k=0;k<m;k++)
swap(matrix[i1][k],matrix[i2][k]);

навскидку как-то так...возможны ошибки

[Tatyana Kur]

Мне нужно на паскале