Динамический список. Удаление

type
  TDoctor = class
  private
    Name: string;
    Oklad: integer;
    Next: TDoctor;
  public
    constructor Create(aName: string; aNext: TDoctor; aOklad: integer);
    destructor Destroy;
    procedure SetName(aName: string);
    procedure SetOklad(aOklad: integer);
    procedure SetNext(aDoctor: TDoctor);
    function GetName: string;
    function GetOklad: integer;
    function GetNext: TDoctor;
  end;
 
type
  TDep = class
  private
    Name : string;
    FirstDoctor: TDoctor;
    Count: integer;
  public
    constructor Create(aName: string);
    procedure SetName(aName: string);
    function GetName: string;
    function GetFirstDoctor(): TDoctor;
    function DeleteDoctor(aName: string): boolean;
    procedure AddFirst(aDoctor: TDoctor);
    function AddAfter(aDoctor: TDoctor; After_Name:String): Boolean;
    function Find(aName: string): TDoctor;
  end;
 
function TDep.Find(aName: string): TDoctor;
var
  n:TDoctor;
begin
  n:=FirstDoctor;
  while (n<>nil) do
  if (n.GetName=aName) then
  begin
    Result:=n;
    break;
  end
  else
  n:=n.GetNext;
  Result:=nil;
end;
 
function TDep.DeleteDoctor(aName: string): boolean;
var
  d1, d2: TDoctor;
begin
  Result:=False;
  if Count <> 0 then // проверка на пустой список
  begin
    if FirstDoctor.GetName = aName then  // если удаляется первый элемент
    FirstDoctor:=FirstDoctor.GetNext;
    else
      if Find(aName)=nil then
      Exit
      else
      d1:=Find(aName);
      d1:=d1.GetNext;
  end;
  Count:=-Count;
end;

function TDep.Find(aName: string): TDoctor;
var
  n:TDoctor;
begin
  n:=FirstDoctor;
  while (n<>nil) do
  if (n.GetName=aName) then
  begin
    Result:=n;
    break;
  end
  else
  n:=n.GetNext;
  Result:=nil;
end;
 
function TDep.FindPrev(aName: string): TDoctor;
var
  temp, prev:TDoctor;
begin
  Result:=nil;
  prev:=nil;
  temp:=FirstDoctor;
  while (temp<>nil) do
  if (temp.GetName=aName) then
  begin
    Result := prev;
    Exit;
  end
  else
  prev := temp;
  temp:= prev.GetNext;
end;
 
function TDep.DeleteDoctor(aName: string): boolean;
var
  temp, prev: TDoctor;
begin
  Result := false;
  if FirstDoctor = nil then // список пуст
    begin
      Exit;
    end;
  if Find(aName)=nil then // нужный элемент не найден
    begin
      Exit;
    end;
  if FirstDoctor.GetName = aName then // удаление первого элемента
    begin
      FirstDoctor := FirstDoctor.GetNext;
      Dec(Count);
      Result := True;
      Exit;
    end
  else
    prev := FindPrev(aName);
    temp:=prev.GetNext;
    prev.SetNext(temp.GetNext);
    Dec(Count);
    temp.Free;
    Result:=True;
end;

function TPoliclinica.LoadFromFile(fileName: string): Boolean;
var
  F: TextFile;
  i, j, Count1: integer;
  NameDoc, S: string;
  oklad: Integer;
  NameDep: string;
  CountDoc: Integer;
  Doct: TDoctor;
begin
  if FileExists(fileName) then
  begin
    Assign(F, fileName);
    Reset(F);
    Readln(F); // номер поликлиники
    Readln(F, S);
    Number:= StrToInt(S);
    SetNumber(Number);
    Readln(F); // отделений
    Readln(F, S);
    Count1:=StrToInt(S);
    for i=1 to Count1 do
    begin
      Readln(F); // название отделения
      Readln(F, NameDep);
      Department[i]:=TDep.Create(NameDep);
      Readln(F); // докторов
      Readln(F, S);
      CountDoc := StrToInt(S);
      for j=1 to CountDoc do
      begin
        Readln(F, NameDoc);
        Readln(F, oklad);
        Doct:=nil;
        if Department[i].GetFirstDoctor=nil then
        Department[i].AddFirst(Doct.Create(NameDoc, nil, oklad));
        Doct:=Department[i].GetFirstDoctor
        else
        Department[i].AddAfter(Doct.Create(NameDoc, Doct, oklad));
        Doct:=Doct.GetNext;
      end;
    Close(F);
    Result:=True;
    end
    else
    Result:=False;
end;