лабораторная работа / Разбить строку на слова

program string_Counter;

var i:byte;

st:string;

begin

read(st);

for i:=1 to length(st) do

begin

if st[i]<>' ' then

Write(st[i]) else

if st[i-1] <> ' ' then Writeln;

end;

end.