Всем спасибо! Тема закрыта
Код
Program z817;
Uses crt;
Var s:string;
s1:array[1..50] of String;
i,n,x:integer;
Begin
clrscr;
Readln(s);
For i:=1 To length(s) Do
begin
IF s[1]<>' ' Then insert(' ',s,1);
IF s[i]=' ' Then
begin
n:=i+1;
WHILE s[n]<>' ' Do Inc(n);
Inc(x);
s1[x]:=copy(s,i+1,n-i);
n:=x;
end;
end;
For x:=1 To n Do
Writeln(s1[x]);
END.