Срочно нужна программа для курсовой на линейные списки Опции

[Gizmo]

Вот и сессионый петух клюнул в неподходящее время в неподходящее место,поэтому огромная просьба помочь в написании программы на создание и упорядоченние линейных списков.
1)Создать список упорядоченный по возрастанию ключей.Структура данных эл-та:фамилия,номер телефона.По номеру тел. звонящего абонента выдать его фамилию.
2)По заданной фамилии выдать телефоны всех однофамильцев.
Разницы нету что использовать :стеки,деки или очереди.
PS Уже писал на других форумах посвящённых этой тематики,им оказалось СЛАБО.

[Gizmo]

Я почти сделал,но остались недоработки.
Ниже привожу текст программы :

program z1; 
uses crt; 
var chel:record 
fam:string; 
nom:longint; 
end; 
x:string; 
fa:text; 
kol,i:byte; 

begin 
clrscr; 
assign(fa,'a.txt'); 
{rewrite(fa); 
writeln('vvedite kol-vo dannuh'); 
readln(kol); 
for i:=1 to kol do begin 
with chel do begin 
writeln('vvedite familiyu'); 
readln(fam); 
writeln(fa,fam); 
writeln('vvedite nomer'); 
readln(nom); 
writeln(fa,nom); 
end; 
end; 
close(fa);} 
reset(fa); 
readln(x); 
while not eof(fa) do with chel do begin 
readln(fa,fam); 
readln(fa,nom); 
if x=fam then writeln(nom); 
end; 
close(fa); 
end.

Токо осталось добавить блок в котором будет по заданной фамилии выводить тел. всех однофамильцев.Программа токо написанна по-этому возможны ошибки.И если кто знает как можно упорядочить списки по возрастанию.
PS курсач сдаю 25 мая

Сообщение отредактировано: volvo - 4.11.2006 2:06