В данной действительной матрице размера n×m (n≥3, m≥3) поменять местами:

uses crt;
var
mat:array [1..10, 1..10] of real;
n, m, i, j:integer;
k:real;
label 1;
begin
1:clrscr;
writeln ('Vvedite kol-vo strok');
readln (n);
writeln ('Vvedite kol-vo stolbcov');
readln(m);
if (n<3)or(m<3) then 
begin writeln('Kolichestvo stolbcov i strok dolgno byt  >=3'); readln; goto 1; end;
writeln ('Vvedite matricu');
for i:=1 to n do
for J:=1 to m do
readln(mat[i,j]);
writeln('Matrica');
for i:=1 to n do begin
for J:=1 to m do begin
write(mat[i,j]:2:0,' '); end;
writeln;
end;
for j:=1 to m do
begin
k:=mat[2,j];
mat[2,j]:=mat[n-1,j];
mat[n-1,j]:=k;
end;
writeln ('Matrica posle smeni strok');
for i:=1 to n do begin
for J:=1 to m do begin
write(mat[i,j]:2:0,' '); end;
writeln;
end;
for i:=1 to n do
begin
k:=mat[i,3];
mat[i,3]:=mat[i,n-2];
mat[i,n-2]:=k;
end;
writeln ('Matrica posle smeni stolbcov');
for i:=1 to n do begin
for J:=1 to m do begin
write(mat[i,j]:2:0,' '); end;
writeln;
end;
end.