//ToWords разделяет строку с помощью разделителя (пробел по

//умолчанию) и возвращает массив строк.

var

 b: string;

 strings: array of string;

begin

 readln(b);

 strings := b.ToWords(' ');

 for var i := 0 to length(strings) - 1 do

   writeln(strings[i]);

end.

//Пример:

//Ввод:

q wer ty

//Вывод:

q

wer

ty