Код презентации скопируйте его
Поменять местами 2 строки k1,k2 for j:=1 to m do begin temp:=a[k1,j]; a[k1,j]:=a[k2,j]; a[k2,j]:=temp; end;
Поменять местами 2 столбца k1,k2 for i:=1 to n do begin temp:=a[i,k1]; a[i,k1]:=a[i,k2]; a[i,k2]:=temp; end;