Нужно из файла переписать текст, после каждой строчки которого стоит воскл.знак.

[vralayala]

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

var 
s:string;
  f: text;
 begin
  assign(f,'input.txt');
  reset(f);
  while (not eof(f))  do begin
  readln(F,s);
  s:=s+'!';
  end;
  close(f);
  assign(f,'output.txt');
  rewrite(f);
  writeln(f,s);
  close(f);
end.

ПОЧЕМУ ТО ВЫВОДИТ В ДРУГОМ ФАЙЛЕ ТОЛЬКО ПОСЛЕДНЮЮ СТРОЧКУ.

______________
1) Название темы по правилам форума должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В последующем, темы с подобным названием будут закрываться или удаляться,
а автор такой темы будет получать штрафные баллы.

2) Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)

Учтите это на будущее.

Модератор.

[Mad_Cat]

var 
s:string;
  f,g: text;
 begin
  assign(f,'input.txt');
  reset(f);
  assign(g,'output.txt');
  rewrite(g);

  while (not eof(f))  do begin
  readln(F,s);
  s:=s+'!';
 writeln(g,s);
  end;
  close(f);
  close(g);end.

[vralayala]

спасибо большое!

[ViktorR]

vralayala

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

Так что-же переписываем?
"Текст в конце каждой строки которого стоит восклицательный знак" или
"Текст в конце каждой строки которого ставим восклицательный знак".

У меня с великим русским ...