Степень двумерного массива - PascalABC.NET

Формулировка задачи:

Задача состоит в том чтобы при вводе первой строки,2 строка квадрат первой,3 строка в третей степени первой строки и т.д. Вот что смог написать,дальше не знаю, подскажите как сделать.

                    Листинг программы
                
 
                        
                          
                    
Program qq;
uses crt;
var a:array[1..5,1..5] of integer ;
b:array[1..5,1..5] of integer;
n,m,i,j,k: integer;
begin
write (' Введите кол-во строк ');
readln (n);
write ( ' Введите кол-во столбцов ');
readln (m);
for i:=1 to n do
for j:=1 to m do
begin 
if i=1 then
write ('a[',i,',',j,']=');
readln (a[i,j]);
end;
begin
for i:=2 to n do
j:=i*i
end;
for i:= 1 to n do
 begin 
 for j:=1 to n do
 writeln(a[i,j],' ');
 end;
end.

Решение задачи: «Степень двумерного массива»

Листинг программы

program qq;
var
  a: array[1..5, 1..5] of integer;
  n, m, i, j: integer;
 
begin
  write(' Введите кол-во строк ');
  readln(n);
  write( ' Введите кол-во столбцов ');
  readln(m);
  for i := 1 to n do
    for j := 1 to m do
    begin
      if i = 1 then
      begin
        write('a[', i, ',', j, ']=');
        readln(a[i, j]);
      end
      else a[i, j] := a[i-1, j] * a[1, j]
    end;
    
  for i := 1 to n do
  begin
    for j := 1 to n do
      write(a[i, j]:6);
    writeln;
  end;
end.

Объяснение кода листинга программы

В этом коде создается двумерный массив размером 5x5, а также четыре переменные: n, m, i, j (циклы for в этом языке не поддерживаются, поэтому используются переменные-счетчики).

Ввод количества строк и столбцов массива с помощью функций write и readln.
Два вложенных цикла for для заполнения массива a. В первой итерации внешнего цикла, если i=1, то выводится приглашение для ввода значения элемента a[1,j], иначе значение элемента a[i,j] присваивается произведению a[1,j] и a[i-1,j].
Два вложенных цикла for для вывода значений массива a на экран.
Вывод значений массива a с помощью функции write.