Записи и Таблицы. Деревья

Type Line = Record {‹Ё*ЁЁ}
               A,B,C: Integer; {Љ®нддЁжЁҐ*вл}
            End;
 
Var Result,I,J,N: Integer;
    F,G : Array[1..20] Of Line;
 
    
Begin
 
       F[1].A := 1; F[1].B := 9; F[1].C := 2;
       F[2].A := 2; F[2].B := 6; F[2].C := 3;
       F[3].A := 3; F[3].B := 5; F[3].C := 1;
       F[4].A := 4; F[4].B := 2; F[4].C := 4;
       F[5].A := 3; F[5].B := 3; F[5].C := 1;
       F[6].A := 2; F[6].B := 5; F[6].C := 2;
       F[7].A := 1; F[7].B := 9; F[7].C := 5;
       F[8].A := 2; F[8].B := 6; F[8].C := 1;
       F[9].A := 3; F[9].B := 5; F[9].C := 2;
 
       N := 9;
       Result := 0;
 
       I := 1;
       For J := 2 to N Do
           If (F[I].A = F[J].A) And (F[I].B = F[J].B) Then Begin
              Write('‹Ё*Ёп ',I,' Ї*а*««Ґ«м** «Ё*ЁЁ ',J,'    ');
              WriteLn(F[I].A,'X + ',F[I].B,'Y + ',F[I].C);
              Result := Result + 1;
           End;
       Writeln('Ќ*©¤Ґ*® ',Result,' «Ё*Ё©');
 
       If Result = 0 Then WriteLn('’*ЄЁе «Ё*Ё© *Ґв');
       Readln;
End.

Type inform = word;
     ss = ^zveno;
     zveno = record
           inf : inform;
           key : integer;
           left, right: ss;
     end;
 
Var E,N,I,Rn : Integer;
    tr : ss;
 
Procedure vstavka(var p: ss; k: integer);
Begin
     If p = nil then Begin
        New(p);
        p^.key:=k;
        p^.left:=nil;
        p^.right:=nil;
     End Else Begin
         If k < p^.key  then vstavka(p^.left, k);
         If k > p^.key  then vstavka(p^.right, k);
     End;
End;
 
Procedure print(var p: ss; h: integer);
Var i: integer;
Begin
     If p <> nil then Begin
        Print(p^.right, h + 1);
        For i:=1 to h do write('    ');
        Writeln(p^.key);
        Print(p^.left, h + 1);
     End
End;
 
Function poisk(p: ss; x: integer): boolean;
var b: boolean;
begin
     b:=false;
     while (p <> nil) and (b = false) do begin
           if p^.key = x
              then b:=true
              else if p^.key < x
                   then p:=p^.right
                   else p:=p^.left;
     end;
     poisk:=b;
end;
 
Begin
     Randomize;
     ClrScr;
     Write('‚ўҐ¤ЁвҐ зЁб«® Ї®в®¬Є®ў N: ');
     ReadLn(N);
 
     New(tr);
     tr^.key:=Random(100);
     tr^.left:=nil;
     tr^.right:=nil;
 
     I := 1;
     While I <= N Do Begin
         Rn := Random(100);
         If Not(poisk (tr, Rn)) then Begin
            vstavka(tr, Rn);
            Inc(I);
         End;
     End;
 
     print(tr,3);
 
     Write('‚ўҐ¤ЁвҐ ЁбЄ®¬®Ґ зЁб«® E: ');
     ReadLn(E);
 
     If poisk (tr, E) Then WriteLn('’*Є®© н«Ґ¬Ґ*в Ґбвм')
                       Else WriteLn('’*Є®Ј® н«Ґ¬Ґ*в* *Ґв');
 
     ReadLn;
End.

function Equal(T1,T2 : Tree ) : boolean;
 begin
 if T1=T2 then Equal:=true
 else
 if (T1 <> nil) and (T2 <> nil) then
 if T1^.inf = T2^.inf then
 Equal:=Equal(T1^.L,T2^.L) and 
 Equal(T1^.R,T2^.R)
 else Equal:=false
 else Equal:=false
 end;