Файл с текстом( почти готово)

[Чуччи]

Помогите поменять задачку чтоб она выравнивала текст по центру и правому краю( она все делает но там выравнивается по левому и правому, а надо по левому и центру)

VAR
 f1,f2,f3:TEXT;
 N,L,i:Byte;
 S:String;
 C:Char;
BEGIN
 Assign(f1,'Name1.txt');
 ReSet(f1);
 Assign(f3,'Name3.txt');
 ReWrite(f3);
 Repeat
  Repeat
   Read(f1,C);
   If C<>' ' then Write(f3,C)  else WriteLn(f3);
  Until (C=' ') or (EoLn(f1)) or Eof(f1);
 Until Eof(f1);
 Close(f1);
 Close(f3);
 Write('N= ');
 ReadLn(N);
 Assign(f2,'Name2.txt');
 ReWrite(f2);
 ReSet(f3);
 ReadLn(f3,S);
 Write(f2,S);
 Repeat
  L:=Length(S);
  Repeat
   ReadLn(f3,S);
   L:=L+Length(S)+1;
   If L<=N then Write(f2,' '+S);
  Until (L>N) or (EoF(f3));
  If (not EoF(f3)) then
   begin
    WriteLn(f2);
    Write(f2,S);
   end;
 Until EoF(f3);
 Close(f3);
 Close(f2);
 ReSet(f2);
 ReWrite(f3);
 Repeat
  ReadLn(f2,S);
  For i:=1 to N-Length(S) do Write(f3,' ');
  WriteLn(f3,S);
 Until EoF(f2);
 Close(f2);
 Close(f3);
END

заранее благодарю