Нельзя преобразовать тип 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