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

[Gizmo]

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

[klem4]

Ну тогда это делается по другому ... вот пример ввода списка вручную, попробуй сделать тоже из файла

в первой строке файла храни кол-во элементов (n), а далее например n*2 строк

имя1
номер1
имя2
номер2
...

читай их и пиши в список.

uses crt;

const

  max = 10;

type

  TData = record
    name, number : string;
  end;

  PItem = ^TItem;

  TItem = record
    data : TData;
    next : PItem;
  end;

procedure InputData(var DB : PItem; n : integer);
var
  newItem : PItem;
  name, number : string;

begin

  DB := nil;

  while (n > 0) do begin

    writeln;
    write('Name = '); readln(name);
    write('Number = '); readln(number);

    New(newItem);
    newItem^.next := DB;
    newItem^.data.name := name;
    newItem^.data.number := number;

    DB := newItem;

    dec(n);
  end;
end;

procedure PrintData(var DB : PItem; n : integer);
var
  item : PItem;
begin
  item := DB;
  while (item <> nil) do begin
    writeln;
    writeln(item^.data.name);
    writeln(item^.data.number);
    item := item^.next;
  end;
end;

var

   n : integer;

   DataBase : PItem;
begin

  clrscr;

  write('n = '); readln(n);

  InputData(DataBase, n);

  writeln;

  PrintData(DataBase, n);
  readln;
end.