делфи

[poison777]

помогите пожалуйста понять что не так. выводит не правильный массив
задание заключается в том что бы вывести вещественную матрицу А размером 7х7. первая строка которой задаётся формулой а[1,j]=2*j+3(j=1,...,7), вторая строка формулой а[2,j]=j-3/(2+1/j) (j=1,...,7) а каждая следующая строка есть сумма двух предыдущих

begin
     for j:=1 to 7 do
    a[1,7]:=j*2+3;
      for j:=1 to 7 do
      a[2,j]:=j-3/(2+1/j);
        for i:=3 to 7 do
          for j:=1 to 7 do
           a[i,j]:=a[i-1,j]+a[i-2,j];
     for i:=1 to 7 do
          begin
       for j:=1 to 7 do
          write(a[i,j]:10:6, '|');
          writeln;
          end;
          readln;

end.

[Sibedir]

  for j:=1 to 7 do
    a[1,j]:=j*2+3;

  for j:=1 to 7 do
    a[2,j]:=j-3/(2+1/j);

  for i:=3 to 7 do
    for j:=1 to 7 do
      a[i,j]:=a[i-1,j]+a[i-2,j];

  for i:=1 to 7 do begin
    for j:=1 to 7 do
      write(a[i,j]:10:6, '|');
    writeln;
  end;

Только мне кажется, вы перепутали местами столбцы и строки

P/S: Вас проигнорировали, потому что
1. вы не оформляете код тегами
2. название темы не соответствует вопросу
1 плюс - вы хоть какой-то код выложили.

[poison777]

спасибо... я невнимательная((