gistfile1.pas

Var a:array[1..240] of string;
s:string; j,i:integer;
begin
readln(s);s:=s+' '; 
j:=1;
for i:=1 to length(s)-1 do
  if s[i]<>' ' then
    a[j]:=a[j]+s[i]
  else if s[i+1]<> ' ' then
     j:=j+1;
for j:=1 to 10 do
writeln(a[j]);
end.