Дан текстовый файл

[Jalgas-xan]

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

[Sciv]

Assign(F,'text.txt');
Reset(F);
s1:='';
While not eof(F) do begin
  ReadLn(F,s);
  s:=copy(s,1,pos(' ',s));
  s1:=s1+s;
end;
Close(F);
WriteLn(s1);
ReadLn;