Текстовые файлы, не могу доработать программу

[Slippik]

Здравствуйте! Помогите пожалуйста доработать программу:

Описать процедуру, которая построчно печатает содержимое непустого текстового файла Т, вставляя в начало каждой печатаемой строки ее порядковый номер (занимает 4 позиции) и пробел.

Меня попросили сделать так что бы он не только выводил на экран изменения но и записывал их в новый файл, я начал писать программу и можно сказать уже запутался. Вот текст программы:

program ZVER;
uses crt;
var
f,f1 : text;
i : integer;
s,l : string;
procedure vivod (var f,f1:text);
begin
While not eof(f) do
begin
readln(f,s);
writeln(s);
end;
While not eof(f1) do
begin
readln(f1,s);
if s <> '' then begin
writeln(i:4,' ',s);
end
else
writeln;
writeln(s);
end;
end;
begin
clrscr;
assign(f,'t.PAS');
assign(f1,'t1.PAS');
{$i-}reset(f);{$i+}
if ioresult <> 0 then writeln ('sozday fail')
else begin
reset(f);
rewrite(f1);
begin
while not eof (f) do
readln(f,s);
i:=i+1;
str(i,l);
insert(l,s,1);
writeln(f1,s);
end;

while not eof (f) do
vivod;
close(f);
close(f1);
readln;
end;
readkey;
end.

Помогите пожалуйста разобраться, как доделать эту прогу!

[Tkirill]

uses crt;
var
f,fil:text;
s,st:string;
i:integer;
begin
clrscr;
assign(fil,'c:\f1.txt');
reset(fil);
assign(f,'c:\f2.txt');
rewrite(f);
i:=0;
while not eof(fil) do
 begin
 i:=i+1;
 str(i,st);
 readln(fil,s);
 s:=st+' '+s;
 writeln(s);
 writeln(f,s)
 end;
close(fil);
close(f);
readln;
end.