Procedure TCandidateList.SaveCandidateList(FilePath: string);
var
    FileCandidateList : File of TRecordCandidate;
    TempList : PCandidateList;
    TempCandidate : TRecordCandidate;
Begin
    // Присвоить узлу ссылку на голову
    TempList := Self.Head;
    // Связка файла с путем к файлу
    AssignFile(FileCandidateList, FilePath);
    // Открытие файла для записи
    Rewrite(FileCandidateList);
    // Пока текущий узел не равен NIL
    while TempList <> NIL do
    begin
        TempCandidate := TempList^.Candidate.ConvertToRecord();
        // Запись текущего кандидата в файл
        Write(FileCandidateList, TempCandidate);
        // Переход к следующему узлу
        TempList := TempList^.Next;
    end;
    // Закрытие файла
    CloseFile(FileCandidateList);
End;