АСОИ, Delphi, много вариантов 2 сем / 3деревья / кол-во фамилий с буквы а / Unit2

unit Unit2;

interface
type Tkey =longword;
Tinf=record
s:string[100];
key:Tkey;
end;
Ptree=^tree;
Tree=record
inf:tinf;
a1,a2:Ptree;
end;

TTree=class (Tobject)
proot,p,q,v,w:Ptree;
constructor create;
// procedure view(var kl:integer);
// function findK(var p:ptree;var k:longword):string;
// procedure wrt1b;
// function poiskB(k:Tkey):Tinf;
// Function MinkB:Tinf;

Destructor Free;
end;


implementation

constructor Ttree.create;
begin
Inherited create;
proot:=nil;
end;

destructor ttree.Free;
procedure delett(p:Ptree);
begin
if p=nil then Exit;
delett(p^.a1);
delett(p^.a2);
dispose(p);
p:=nil;
end;
begin
Delett(proot);
Inherited Free;
end;

{
Procedure Ttree.view;
procedure VM(p:ptree;var kl:integer);
begin
if p<> nil then begin
if kl=-1 then
Form1
}

{
function FindK(var p:ptree;var k:integer):string;
var s:string;

begin
s:='';
if p.inf.key=k then begin
s:=p.inf.s;
FindK:=s;
exit;
end;
if p.inf.key>k then
s:= FindK(p.a2,k);
if p.inf.key<k then
s:= FindK(p.a1,k);

{ if s='' then
s:='Такого нет!';
Return:=s; }


{ end; }








end.