Создать текстовый файл и записать в него первое слово из строк веденный пользователя, Помогите решить прогу,пожалуйста Опции

[Help]

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

Сообщение отредактировано: Help - 23.01.2008 23:16

[Yevgeny]

Program Prog;
Var
f:text;
name:string[12];
str:string;
i:integer;
Begin
Writeln('write name of file');
Readln(name);
Assign(f,name);
rewrite(f);
Writeln('vvedite stroky');
Readln(str);
i:=1;
While str[i] <> ' ' do
 Begin
 Write(f, str[i]);
 i:=i+1;
 end;
close(f);
End. 

Тут тока одна строка вводится, сколько тебе их надо вводить я думаю и сам написать сможешь...