Текстовые файлы, над в конце КАЖДОЙ строки добавить букву! у меня добавляет только в Одну строку! посмотрите и помогите

uses crt;
var f1,f2:text;
      st,b:string; 
      i:byte;
procedure addlast(var t:byte; c:char);
     begin
     reset(F1);
     for i:=1 to t do
     readln(F1,st);
     st:=st+c;
     reset(F1);
     rewrite(F2);
     for i:=1 to (t-1) do
     begin
     readln(F1,b);
     writeln(F2,b);
     end;
     writeln(F2,st);
     readln(F1,st);
     readln(F1,b);
     writeln(F2,b);
     end;
     close(F2);
     end;

procedure add(c:char);
begin
reset(f1);
rewrite(f2);
while not eof(f1) do
  begin
    readln(f1,s);
    s:=s+c;
    writeln(f2,s);
  end;
close(f1);
close(f2);
end;

спасиииииб!!! оказываеца все просто!!!

Эти две строки:

    s:=s+c;
    writeln(f2,s);

- имеет смысл заменить на одну:

    writeln(f2,s,c);

И короче, и надежнее: не обломаешься при длине входной строки, равной 255.