Нельзя преобразовать тип array of string к string. Исправьте плиз. var b:string; begin...

Question

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

Answer 1

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