Помогите с программкой

Question

Нужно написать программу на Pascal ABC 
 
Условие: Дано текстовый файл. Вывести первые слова каждого ряда 
 
Текстовый файл с разрешением .txt и набит абсолютно информацией

Зарание спасибо)

Сергей Денисеня · Accepted Answer

program textf; 
 
uses crt; 
 var f:text; s:string; 
BEGIN 
 assign(f,'input.txt'); 
 reset(f); 
 while not eof(f) do 
 begin 
 readln(f,s); 
 writeln(copy(s,1,pos(' ',s)-1)); 
 end; 
 close(f); 
 readkey; 
END.