Песни о Паскале

procedure PrintList;
{--- взять из P_54_1 ---}
end;
var i: integer;
begin {--- Главная программа ---}
List:= nil; { инициализация}
{ Заполнение списка }
for i:=1 to 20 do AddToSortList(100+Random(100), 'Деточкин');
{ Распечатка списка }
PrintList;
Readln;
end.

Разумеется, что проверку этой программы я возлагаю на вас.

Поиск в сортированном списке

Создав функцию поиска номера в сортированном списке, поставим победную точку. Будем искать запись, для которой номер в следующей за ней записи больше искомого (если следующая запись существует). Это условие совпадает с условием поиска при вставке в сортированный список. Найдя такую запись и сравнив её номер с искомым, сформируем результат: если номер найден, возвращаем указатель на эту запись, а иначе – NIL. Все это относится к программе «P_54_4».

{ P_54_4 – Поиск данных в сортированном списке }
type PRec = ^TRec; { Тип указатель на запись }
      TRec = record       { Тип записи для базы данных }
      mNumber : integer;       { Номер авто }
      mFam : string[31]; { Фамилия владельца }
      mNext : PRec;       { Указатель на следующую запись }
      end;
var List : PRec; { Указатель на начало списка (голова) }
      { Размещение нового элемента в сортированном списке }
procedure AddToSortList(aNumber: integer; const aFam : string);
{--- взять из P_54_1 ---}
end;
      { Распечатка списка }
procedure PrintList;
{--- взять из P_54_1 ---}
end;
      { Поиск в сортированном списке }
function Find(aNumber: integer): PRec;
var p : PRec;
begin
p:= List; { Поиск начинаем с головы }
{ Двигаемся по списку, пока следующий элемент существует
и его номер не больше искомого }
while Assigned(p) and Assigned(p^.mNext) and (p^.mNext^.mNumber <= aNumber)
      do p:=p^.mNext;
{ Если конец списка не достигнут и номер совпадает… }
if Assigned(p) and (p^.mNumber = aNumber)