Составить процедуру для создания матрицы А

program array1;
uses
  crt;
const
  n=8;
var
  x:array[1..n] of LongInt;
  a:array[1..n,1..n] of LongInt;
  i,j:longint;
begin
  randomize;
  for i:=1 to n do
    begin
      x[i]:=i;
      write(x[i]:4)
    end;
  writeln;
  writeln;
  for j:=1 to n do
    begin
      for i:=1 to n do
        begin
          a[i,j]:=round(exp(j*ln(x[i])));
          write(a[i,j]:9)
        end;
      writeln;
    end;
  readln;
end.

const n=8;
type
  TVector = array [1..n] of Longint;
  TMatrix = array [1..n] of TVector;
procedure mGen(const v: TVector; var m: TMatrix);
var i, j: Integer;
begin
  m[1]:=v;
  for i:=2 to n do for j:=1 to n do m[i,j]:=m[1,j]*m[i-1,j];
end;
var
  x: TVector;
  a: TMatrix;
  i, j: Integer;
begin
  for i:=1 to n do x[i]:=i; mGen(x,a);
  WriteLn('A =');
  for i:=1 to n do begin
    for j:=1 to n do Write(a[i,j]:9); WriteLn;
  end;
end.

const n=8;
type
  TVector = array [1..n] of Longint;
  TMatrix = array [1..n] of TVector;
var
  x: TVector;
  a: TMatrix;
  i, j: Integer;
begin
  for i:=1 to n do x[i]:=i;
  a[1]:=x; for i:=2 to n do for j:=1 to n do a[i,j]:=a[1,j]*a[i-1,j];
  WriteLn('A =');
  for i:=1 to n do begin
    for j:=1 to n do Write(a[i,j]:9); WriteLn;
  end;
end.