Pascal Строку с максимальным по модулю элементом в К-м столбце переставить с К-й строкой.

Есть задание: Заданы квадратная матрица размером NxN и число K (1<=K<=N). Строку с максимальным по модулю элементом в К-м столбце переставить с К-й строкой.

Есть написанная программа на задание наоборот: Столбец с максимальным по модулю элементом в К-й строке переставить с К-м столбцом.
begin
a[i,l]:=a[i,l]-a[i,k];
a[i,k]:=a[i,k]+a[i,l];
a[i,l]:=a[i,k]-a[i,l]
end;
l - номер столбца с максимальным элементом на k-ой строке
Как существующую программу, где переставляются столбцы, переделать так, чтобы переставлялись строки?
Интересует именно этот кусок.