Ответ:

Всё проверено и работает на free Pascal

Объяснение:

var

 s, st : string;

 i : integer;

begin

 readln(s);

 writeln('------------------------');

 st := '';

 for i := 1 to length(s) do begin

   st := st + s[i];

   if (s[i] = ' ') then begin

     writeln(st);

     st := '';

   end;

 end;

 writeln(st);

end.