Создание программы. Ввести фамилию имя отчество как одно текстовое данное. Вывести фамилия имя отчество в отдельных строках.

Если фамилия, имя и отчество вводятся через пробел, то задачу можно решить так:

var s, f, i:string;

begin

writeln ('Введите ФИО') ;

readln (s) ;

f:=copy (s, 1, pos (' ', s) - 1) ;

writeln (f) ;

delete (s, 1, pos (' ', s)) ;

i:=copy (s, 1, pos (' ', s) - 1) ;

writeln (i) ;

delete (s, 1, pos (' ', s)) ;

writeln (s) ;

end.