Сформировать матрицу размера M × N, у которой первый столбец совпадает с исходным набором чисел - PascalABC.NET

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

Доброе время суток! Помогите с матрицей , не могу решить . Условие задачи :Даны целые положительные числа M, N, число D и набор из M чисел. Сформировать матрицу размера M × N, у которой первый столбец совпадает с исходным набором чисел, а элементы каждого следующего столбца равны сумме соответствующего элемента предыдущего столбца и числа D (в результате каждая строка матрицы будет содержать элементы арифметической прогрессии). Исходные данные : d=2.92. m=3 , n=4. Числа первого столбца :4.98, 0.19, 6.88. Вот мои попытки решения ...

const
d=2.92;
m=3;
n=4;
 
var
a: array [1..m,1..n] of real ; 
s:integer;
i,j:integer;
begin 
  for i:=1 to m do 
  for j:=1 to n do
 
 a[1,j]:=4.98;
 a[i,j]:=j+d;
 
for i:=1 to m do 
  for j:=1 to n do
  
a[2,j]:=0.19;
a[i,j]:=j+d;

for i:=1 to m do 
  for j:=1 to n do
  a[3,j]:=6.88;
  a[i,j]:=j+d;
  
for i:=1 to m do
 begin
  for j:=1 to n do 
  write (a[i,j]:6:2);
  writeln;
 end; 
end.

Решение задачи: «Сформировать матрицу размера M × N, у которой первый столбец совпадает с исходным набором чисел»

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

const
  d = 2.92;
  m = 3;
  n = 4;
 
var
  a: array [1..m, 1..n] of real; 
  first: array[1.. m] of real := (4.98, 0.19, 6.88);
  i, j: integer;
 
begin
  for i := 1 to m do
    for j := 1 to n do
      a[i, j] := first[i] + (j - 1) * d;
  
  for i := 1 to m do
  begin
    for j := 1 to n do 
      write(a[i, j]:6:2);
    writeln;
  end; 
end.

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

Создаются константы d, m, n, определяющие размер матрицы и шаг увеличения для заполнения матрицы.
Создается матрица a размером m на n и инициализируется нулями.
Создается массив first размером m и инициализируется значениями (4.98, 0.19, 6.88).
В цикле перебираются строки матрицы a.
В каждой строке в цикле перебираются столбцы матрицы a.
Элемент матрицы a[i, j] вычисляется как сумма значения элемента массива first[i] и (j-1)*d.
Выводится содержимое матрицы a в формате 6.2.
Выводится символ новой строки.
Выводится содержимое массива first в формате 6.2.
Выводится символ новой строки.