1 Стек 2 По имени(алфавиту) 3 Разветвление

type
  tforbsrec=^forbsrec;
  forbsrec=record
    fio:string[60];
    vozrast:byte;
    istdoh:string[60];
    sostojanie:extended;
    Next:tforbsrec;
  end;
  tstack=class
  private
    r:tforbsrec;
  public
    constructor create;
    Destructor Destroy;
    procedure push(p:ForbsRec);
    Function pop(var p:ForbsRec):boolean;
  end;
 
constructor tstack.create;
Begin
  inherited;
  r:=nil;
end;
 
Destructor tstack.Destroy;
var p:TForbsRec;
Begin
  While r<> nil do Begin
    p:=r^.Next;
    dispose(r);
    r:=p;
  end;
  inherited;
end;
procedure tstack.push(p:ForbsRec);
var s:tforbsrec;
begin
  new(s);
  s^.Next:=r;
  r:=s;
  r^.fio:=p.fio;
  r^.istdoh:=p.istdoh;
  r^.sostojanie:=p.sostojanie;
  r^.vozrast:=p.vozrast;
end;
 
Function tstack.pop(var p:ForbsRec):boolean;
var s:tforbsrec;
begin
  s:=r;
  result:=false;
  if r<>NIL Then Begin
    p.fio:=r^.fio;
    p.istdoh:=r^.istdoh;
    p.sostojanie:=r^.sostojanie;
    p.vozrast:=r^.vozrast;
    r:=r^.Next;
    result:=true;
    dispose(s);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var x,y:forbsrec;
    s:tstack;
begin
  s:=tstack.create;
  x.vozrast:=28;
  x.sostojanie:=500;
  x.istdoh:='FBI';
  x.fio:='John Smith';
  s.push(x);
  s.pop(y);
  s.Destroy;
end;