program qqq;
const n =50;
type tarr=array[1..n] of string;
var f:text;
s:string;
i,k:byte;
a:tarr;
procedure print (x:tarr;k:byte) ;
var i:byte;
begin
for I:=1 to k do writeln(x[i]);
end;
begin
assign(f,'C:\Documents and Settings\Администратор\Рабочий стол\готовые\test.txt');
reset(f);
i:=0;
while not eof(f) do begin
readln(f,s); s:=s+' ';
while pos (' ',s)<>0 do begin
k:=pos(' ',s);
if k>1 then begin
inc(i);
a[i]:=copy(s,1,k-1);
end;
delete(s,1,k);
end;
end;
close(f);
print(a,i);
readln;
end.