помогите правильно вывести текст(аккуратными столбиками)

[Spanchik]

Program z8;
Uses
    Crt;

Var
    N,t: Integer;
    SS: Real;
Function S(k:Integer):Real;
Begin
    If K=1 then
      begin
        S:=1/3;
        write('S')
      end
    else
      Begin
        if (k mod 2=0) then
          begin
            S:=S(k-1)-1/(k*(k+2));
            writeln(-1/(k*(k+2)):5:4,', ')
          end
        else
          begin
            S:=S(k-1)+1/(k*(k+2));
            writeln(1/(k*(k+2)):5:4,', ')
          end;
      End;
End;
Procedure Sum(K:Integer; Var S:Real);
Begin
    If K=1 then
      begin
        S:=1/3;
        t:=1;
      end
    else
      Begin
        Sum(K-1,S);
        if ((k-1) mod 2=0) then t:=1 else t:=-1;
        S:=S+t/(k*(k+2));
      End;
    writeln(t/(k*(k+2)):2:4,', ')
End;
Begin
    Repeat
      Write('N=');
      Readln(N);
    Until (n>0);
    Writeln(' S=',S(N):2:4);

End.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Stilet]

Function S(k:Integer):Real;
Begin
    If K=1 then
      begin
        S:=1/3;
        writeln(S:15:4)
      end
    else
      Begin
        if (k mod 2=0) then
          begin
            S:=S(k-1)-1/(k*(k+2));
            writeln(-1/(k*(k+2)):15:4)
          end
        else
          begin
            S:=S(k-1)+1/(k*(k+2));
            writeln(1/(k*(k+2)):15:4)
          end;
      End;
End;

и

Writeln(' S='); writeln(S(5):15:4);