Формировать двумерный массив, включающий числа, их квадраты, кубы и 4 степень, с сохранением в файле

{Дан произвольный одномерный числовой массив,разработать проект позволяющий:
а)Формировать двумерный массив,включающий эти числа,их квадраты,кубы и 4 степень,с сохранением в файле
 б)вывод данных на экран
 в)поиск результатов по каждому числу
 г)вывод результатов на экран}
const
  n = 10;
  m = 4;
 
var
  a: array [1..n] of real;
  b: array [1..n, 1..m] of real;
  j, i: integer;
 
begin
  randomize;
  writeln('Array A: ');
  for i := 1 to n do
  begin
    a[i] := -n div 2 + random * n;
    write(a[i]:8:2);
  end;
  writeln('Array B: ');
  for i := 1 to n do
  begin
    b[i, 1] := a[i];
    b[i, 2] := sqr(a[i]);
    b[i, 3] := sqr(a[i]) * a[i];
    b[i, 4] := sqr(a[i]) * sqr(a[i]);
    for j := 1 to m do
      write(b[i, j]:8:2);
    writeln;
  end;
end.

  for i:=1 to n do begin
    b[i,1]:=a[i]; for j:=2 to m do b[i,j]:=b[i,j-1]*a[i];
    for j:=1 to m do Write(b[i,j]:8:2); WriteLn;
  end;