TURBO PASCAL

             Ниже приведена  процедура,  которая  строит связанный список
        записей, считывая их из файла. Здесь подразумевается, что вы отк-
        рыли файл записей TCheck и именем CheckFile,  который содержит по
        крайней мере одну запись.

             var ListChecks, CurrentCheck: PCheck;

             procedure ReadChecks;
             begin
                New(ListOfChecks);  { выделить память для первой записи }
                Read(CheckFile, ListOfChecks^); { считать первую запись }
                CurrentCheck := ListOfChecks;   { сделать первую запись
                                                  текущей }
                while not Eof(CheckFile do
                begin
                  New(CurrentCheck^.Next);       { выделить память для
                                                   следующей записи }
                  Read(CheckFile, CurrentCheck^.Next^); { считать
                                                   следующую запись }
                  CurrentCheck := CurrentCheck^.Next; { сделать следующую
                                                   запись текущей }
                end;
                CurrentCheck^.Next := nil;    { после последней считанной
                                                записи следующей нет }
             end.

             Пример 8.8 Построение связанного списка.