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

program zz1;

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

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

begin

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

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

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

while s'' do / / организуем цикл, пока строка не пуста

begin

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

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

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

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

end;

end.