Получить действительный матрицу А( n,m) Первая строка которого задана формулой C1j=2*j+3, вторая строка задается формулой С2j=2+1/j, а каждая следующая строка есть сумма предыдущих — Pascal(Паскаль)

Program P;
const n = XXX, m = XXX;
var A: array [1..n, 1..m] of real;
begin
  for j := 1 to m do
  begin
    A[1, j] := 2*j + 3;
    A[2, j] := 2 + 1/j;
  end;
  for i := 3 to n do
    for j := 1 to m do
      A[i, j] := A[i-2, j] + A[i-1, j];
  for i := 1 to n do
    for j := 1 to m do
      writeln(A[i j]);
end.