Получить действительную квадратную матрицу по заданному правилу - Pascal ABC

const n=8;
var a:array[1..n,1..n] of real;
    i,j:byte;
begin
randomize;
for j:=1 to n do
a[1,j]:=random*10;
for i:=1 to n div 2 do
for j:=1 to n do
if odd(i) then
 begin
  a[i,j]:=a[1,j];
  a[n-i+1,j]:=a[1,j];
 end
else
 begin
  a[i,j]:=i;
  a[i+n div 2-1,j]:=i++n div 2;
 end;
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:6:2);
  writeln;
 end;
end.