Дано действительное число x получить квадратную матрицу порядка n+1

uses crt;
var a: array [1..100,1..100] of real;
    i,j,n: integer;
    x: real;
begin
write('n=');
readln(n);
write('x=');
readln(x);
for i:=1 to n do
    begin
    for j:=1 to n do
        begin
        if i=1 then a[i,j]:=Power(x,j-1);
        if j=1 then a[i,j]:=Power(x,i-1);
        if i=n then a[i,j]:=Power(x,n-j);
        if j=n then a[i,j]:=Power(x,n-i);
        write(a[i,j]:5:0);
        end;
    writeln;
    end;
end.

uses crt;
var a: array [1..100,1..100] of real;
    i,j,n,x: integer;
 
function power (z,pow:integer): integer;
var res: integer;
begin
res:= 1;
while pow>0 do
      begin
      if (pow and 1 = 1) then res:=res*z;
      z:=z*z;
      pow:=pow shr 1;
      end;
power:=res;
end;
 
begin
write('n=');
readln(n);
write('x=');
readln(x);
for i:=1 to n do
    begin
    for j:=1 to n do
        begin
        if i=1 then a[i,j]:=power(x,(j-1));
        if j=1 then a[i,j]:=power(x,(i-1));
        if i=n then a[i,j]:=power(x,(n-j));
        if j=n then a[i,j]:=power(x,(n-i));
        write(a[i,j]:5:0);
        end;
    writeln;
    end;
readkey
end.