Procedure TCandidateList.AddNewCandidate(Candidate: TCandidate);
var
    NewCandidate : PCandidateList;
begin
    if Candidate = NIL then // Если экземпляр кандидата не равен NIL
        Exit;

    New(NewCandidate); // Выделение памяти для нового узла списка

    // Инициализация узла
    NewCandidate^.Next := NIL;
    NewCandidate^.Prev := NIL;
    NewCandidate^.Candidate := Candidate;

    if Head = NIL then // Если голова списка = NIL
    begin
        Head := NewCandidate;
        Tail := NewCandidate;
    end
    else // Если голова списка <> NIL
    begin
        Tail^.Next := NewCandidate;
        NewCandidate^.Prev := Tail;
        Tail := NewCandidate;
    end;

    Inc(Count); // Инкрементирование счетчика записей в списке
end;