Файлы. паскаль

[Iskorka92]

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

[IT-man]

buf:='';
while not eof(f) do
begin
readln(s);buf:=buf+s[1];
end;
writeln(buf);

[Serge_Bliznykov]

Мало того, что тема (как обычно у Вас) не отражает сути решаемой задачи, так эта тема ещё и КРОССПОСТ!


Чем Вас Ваша тема не устроила?!!
ФАЙЛЫ

14.11.2011, 08:39
помогите пожалуйста решить задачку. Буду очень признательна.имеется текстовый файл. Напечатать слово,образованное первыми буквами каждой строки.

ТЕМА ЗАКРЫТА!

Модератор.