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

uses crt;
const n=7;
var a:array[1..n,1..n] of integer;
    i,j,x:integer;
begin
clrscr;
randomize;
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(50);
    write(a[i,j]:3);
   end;
  writeln;
 end;
writeln;
for i:=1 to n do
for j:=1 to n div 2 do
 begin
  x:=a[i,j];
  a[i,j]:=a[i,n-j+1];
  a[i,n-j+1]:=x;
 end;
writeln('Обмен элементов в строках:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:3);
  writeln;
 end;
readln
end.

const n=7;
var a:array[1..n,1..n]of Integer;
i,j,k:Integer;
begin
Writeln('Исходная матрица:');
Randomize;
for i:=1 to n do
begin
 for j:=1 to n do
  begin
  a[i,j]:=Random(31);
  Write(a[i,j]:4);
  end;
Writeln;
end;
for i:=1 to n do
for j:=1 to n div 2 do
begin
k:=a[i,j];
a[i,j]:=a[i,n-j+1];
a[i,n-j+1]:=k;
end;
Writeln('Полученная матрица:');
for i:=1 to n do
begin
for j:=1 to n do Write(a[i,j]:4);
Writeln;
end;
Readln;
end.