program gfg;
const n=20; m=10;
Type Tstring=String[m];
Var A: Array[1..n] of TString;
s:String;
k,i:Integer;
Procedure DelPr(Var s:String);
Begin
While (s[1]=' ') And (s<>' ') Do Delete(s,1,1);
End;
Function GetWord(Var s:string):TString;
Begin
GetWord:= Copy(s,1,Pos(' ',s)-1);
Delete(s, 1,Pos(' ', s));
DelPr(s);
End;
Begin
Writeln('Vvedite tekst');
Readln(s);
s:=s+' ';
DelPr(s);
k:=0;
While s<>'' Do Begin
Inc(k);
A[k]:=GetWord(s);
End;
For i:=1 To k Do WriteLn(A[i]);
Readln;
End.