Динамический список. Удаление - Delphi - Ответ 7080447

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;