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

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

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.