Перестановка элементов матрицы

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

//uses
//  System.SysUtils;
const
  m = 1000;

var
  n,i,j:integer;
  a: array[1..m,1..m] of integer;
begin
  randomize;
  write('array size = '); readln(n);
  writeln;
  for i:= 1 to n do
    begin
      for j:= 1 to n do
        begin
          a[i,j]:=random(200)-100;
          write(a[i,j]:4);  
        end;
      writeln;
    end;
  writeln;
  for i:= 1 to n do
    begin
      if i<n/2 then
        begin
          a[i,n+1-i]:= a[i,n+1-i] - a[n+1-i,i];
          a[n+1-i,i]:= a[i,n+1-i] + a[n+1-i,i];
          a[i,n+1-i]:= a[n+1-i,i] - a[i,n+1-i];
        end;
      for j:= 1 to n do
        write(a[i,j]:4);
      writeln;
    end;

  readln
end.