Работа с текстом. Pascal

[zevs116]

Это вынос мозга. Ребят, кому не лень, помогите. А если лень, то хотя бы принцип объясните. Знаю только что нужно использовать процедуру Val, хотя и не обязательно.

вот задача:

Пусть текст представляет собой последовательность строк. На каждой строке находится фамилия имя отчество. Распечатайте текст, содержащий строки, состоящие только из фамилий и имен, а также все отчества по алфавиту.

конечно, можно сделать
l1:=lendth(string);
Val(string,X,k);
Delete (string,k,l1-k);
write(string);

но это будет только фамилии, да и ка отдельно отчество сохранить... вообщем жду вашей помощи.

[Roof]

Предполагаю, что строки в файле находятся в таком виде:
Иванов Иван Иванович
Иванов Иван Петрович
Иванов Петр Иванович

1) Читаем построчно файл
2) Вытаскиваем одну строку и перебираем ее посимвольно, сохраняя символы в строку - если второй раз наткнулись на пробел - значит фамилию и имя прочли. Печатаем строку.
3) Все символы от второго пробела (не включая его самого) до конца строки сохраняем в элемент одномерного массива (array of string).
4) Когда достигнут конец файла, все строки прочтены, имена и фамилии распечатаны, отчества лежат в одномерном массиве - упорядочиваем массив по алфавиту и печатаем его поэлементно.

[SERG1980]

В цикле построчно считываете файл, заносите итую строку в переменную, спомощью ф-ий Copy Pos Delete вытаскиваете ФИО, ФИ выводите сразу на экран а О заносите в предварительно объявленный массив строк. Сортируете массив и выводите через цикл на экран
Опаньки не успел

[zevs116]

спасибо!) вот только не очень понял, как именно найти номер второго пробела? думаю что так:

ksum:=0
l1:=lendth(string); // считаем длину строки
Val(string,X,k); // находим первый пробел
Delete (string,1,k); // удаляем все до пробела
ksum:=ksum+k;
Val(string,X,k);
ksum:=ksum+k; // находим второй пробел
Delete (string,k,?); // как тут задать, чтоб все до конца удалил, и получилось бы только фамилия имя?