Решение задачи Matrix 58

program Matrix58;
type
  matrix = array [1..10,1..10] of integer;
 
var
  a:matrix;
  M, N, i, j:Integer;
 
procedure Swap(var X,Y:Integer);
begin
 if x<>y then
  begin
   X:=X+Y;
   Y:=X-Y;
   X:=X-Y;
  end;
end;
 
begin
 Write('N: ');
 Readln(N);
 Write('M: ');
 Readln(M);
 
 for  i:=1 to M do
  begin
   writeln(i,': ');
   for j:=1 to N do
    begin
     Write(j,' : ');
     Read(a[i,j]);
    end;
  end;
 
 for j:=1 to (N div 2) do
  for i:=1 to (M div 2) do
   Swap(a[(N div 2)+i,j],a[i,(M div 2)+j]);
 
 for  i:=1 to M do
  begin
   for j:=1 to N do
    begin
     Write(' : ',a[i,j]);
    end;
   writeln(' : ');
  end;
end.