Нельзя преобразовать тип array of string к string. исправьте . var b: string; begin readln(b); b: =b.towords; writeln(b); end.

//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