Двумерный массив. Заполнить по формуле

Var m:array[1..7,1..7]of real;
    i,j:integer;a:real;
Begin
for i:=1 to 7 do
begin
 for j:=1 to 7 do
 begin
  if i=1 then m[i,j]:=2*j+3;
  if i=2 then m[i,j]:=j+3/(2+j);
  if i>2 then m[i,j]:=m[i-1,j]+m[i-2,j];
  a:=a+m[i,j];
  write(m[i,j]:4:2,' ');
 end;
write('  |':4,a:4:2);
writeln; a:=0;
end;
end.

const
  n=7;
var
  a: array[1..n,1..n] of real;
  i,j: integer;
begin
  writeln('massiv:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      if i=1 then a[i,j]:=2*j+3
        else if i=2 then a[i,j]:=j+3/(2+j)
          else a[i,j]:=a[i-2,j]+a[i-1,j];
      write(a[i,j]:8:2);
    end;
    writeln;
  end;
  readln;
end.

uses crt;
var a: array [1..7,1..7] of real;
    i,j: integer;
begin
for i:=1 to 7 do begin
for j:=1 to 7 do begin
a[1,j]:=2*j+3;
a[2,j]:=j+3/(2+j);
end;
end;
 
for i:=3 to 7 do begin
for j:=1 to 7 do begin
a[i,j]:=a[i-1,j]+a[i-2,j];
end;
end;
 
for i:=1 to 7 do begin
for j:=1 to 7 do begin
write(a[i,j]:8:2);
end;
writeln;
end;
end.