матрица n+1

uses crt;
const n=10;
var a: array[1..n,1..n] of real; i,j,k,k1,k2,k3: byte;
x:real;
begin
clrscr;
write('X = ');
readln(x);
for j:=1 to n do begin
k:=k+1;
a[1,j]:=exp(ln(x)*k);
end;
for i:=1 to n do begin
k1:=k1+1;
a[i,1]:=exp(ln(x)*i);
end;
for j:=n downto 1 do begin
k2:=k2+1;
a[n,j]:=exp(ln(x)*k2);
end;
for i:=n downto 1 do begin
k3:=k3+1;
a[i,n]:=exp(ln(x)*k3);
end;
a[1,1]:=1;
a[1,2]:=x;
a[1,3]:=x*x;
a[2,1]:=x;
a[3,1]:=x*x;
a[n-1,n]:=x;
a[n-2,n]:=x*x;
a[n,n-1]:=x;
a[n,n-2]:=x*x;
a[n,n]:=1;
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:7);
writeln;
end;
readln;
end.

write(a[i,j]:7);

write(a[i,j]:7:0);

uses crt;
const n=10;
var a: array[1..n,1..n] of real;
    i,j:byte;
    x,p:real;
begin
clrscr;
write('X = ');
readln(x);
for i:=1 to n do
for j:=1 to n do
a[i,j]:=0; {обнулим матрицу}
a[1,1]:=1;{первый элемент}
p:=1;
for i:=2 to n do{от 2 до конца}
 begin
  p:=p*x;{возводим х в степень}
  a[1,i]:=p;{пишем в строку 1}
  a[i,1]:=p;{в столбец 1}
 end;
for i:=1 to n do
 begin
  a[i,n]:=a[1,n-i+1];{копируем первую строку наоборот в последний столбец}
  a[n,i]:=a[1,n-i+1];{в последнюю строку}
 end;
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:7:2);
  writeln;
 end;
readln;
end.