текстовые файлы, помгите, а то мне никак Опции

[elvis]

Нужно решить вот такую задачку, мож есть у кого исходник
Пеpеписать текстовый файл f в g, утpоив все стpоки, начинающиеся
символом "!"

если есть свободное время шлите мне на мыло---> ultra_elvis@mail.ru
заранее спасибо!

[BlackShadow]

Вроде так:

Код

Var
 f,g:Text;
 s:String;
 i:Integer;
Begin
 Assign(f,'f.Txt');
 Reset(f);
 Assign(g,'g.Txt');
 ReWrite(g);
 While Not Eof(f) Do
 Begin
   ReadLn(f,s);
   WriteLn(g,s);
   If (s[0] > #0) And (s[1] = '!') Then
     For i:=1 To 2 Do
       WriteLn(g,s)
 End;
 Close(g);
 Close(f)
End.

Должно быть так...
Или я неправильно понял условия.