Ввести предложение, где меж словами не менее одного пробела. Вывести слова

program zz1;

var s, d:string; // задаем переменные строкового типа

k:integer;  // задаем переменную целого типа

begin

write( введите строку );

read(s);  // вводим с клавиатуры строку

s:=s+ ; // добавляем в конец строчки пробел для того чтоб цикл завершился

while slt;gt; do // организуем цикл, пока строчка не пуста

begin

k:= pos( , s); // получаем позицию пробела

d:= copy(s, 1, k); // копируем слово до пробела

writeln(d); // выводим слово с новейшей строчки

delete(s, 1, k); // удаляем слово с пробелом

end;

end.