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

Если фамилия, имя и отчество вводятся через пробел, то задачу можно решить так: 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.