Файлы(Pascal)

[Дима82]

Удаление из каждой строки последовательности символов, ограниченных с обеих сторон заданным символом.

Program Lb9;
Uses crt;
Var file1,file2,s:string;
    f1,f2:text;
    ch:char;
Begin
clrscr;
write('Input file= ');
readln(file1);
write('Output file= ');
readln(file2);
assign(f1,file1);
reset(f1);
if ioresult<>0 then begin
 write('File not found');
 readln;
end;
assign(f2, file2);
rewrite(f2);
write('Vvedite simvol ch= ');
readln(ch);
while not eof(f1) do
 begin
  readln(f1,s);
  \\Что здесь ставить? 
  writeln(f2,s);
 end;
 close(f1);
 close(f2);
End.

Помогите доделать лабу...

[B_N]

http://programmersforum.ru/showthread.php?t=20785

[Дима82]

Да, я знаю, попробовал переделать формулу, не получается, не подскажите?...

[B_N]

Дима82, вот в той теме этот вопрос и продолжайте. Нечего плодить одинаковые темы, за это штрафуют.

[Дима82]

И чё теперь, мне продолжать в другой теме...