Линейные списки. Пример

Написать программу сортировки однонаправленного списка записей со следующей структурой: фамилия, год рождения, номер группы, время забега. Сортировка должна проводиться по фамилии (по алфавиту). Данные вводятся с клавиатуры, количество элементов списка не ограничено и задается в процессе работы программы.
Процедурой formspisok формируется однонаправленный список записей, процедурой pechspisok выводится исходный список. Сортировка осуществляется процедурой sort (сортировка методом «пузырька», но в отличие от сортировки массива здесь изменяются связи между элементами списка, если два соседних элемента связаны не в правильной последовательности), результат
выводится процедурой pechspisok.

http://pastebin.com/t44hRBhU