Построить график зависимости среднего количества сравнений ключей

program ThirdTree;
 
const
   Range = 32670;
 
type
   tPtr = ^tNode;
   tNode = record
      Key: integer;
      Left, Right: tPtr;
   end;
   tTree = tPtr;
   tArr = array[0..Range] of integer;
 
procedure AddToTree(var T: tTree; K: integer);
begin
   if T = nil then begin
      new(T);
      T^.Key := K;
      T^.Left := nil;
      T^.Right := nil;
   end
   
   else if (K < T^.Key) then
      AddToTree(T^.Left, K)
   else if (K > T^.Key) then
      AddToTree(T^.Right, K);
end;
 
procedure Search(T: tTree; K: integer; var Res: tPtr; var c: int64);
var
   Quit: boolean;
begin
   Quit := false;
   c := 0;
   repeat
      if T = nil then
         Quit := true
      else if K < T^.Key then begin
         T := T^.left;
         c := 1;
      end
      else if K > T^.Key then begin
         T := T^.right;
         c := 2;
      end
      else begin
         Quit := true;
         c := 3;
      end;
   until Quit;
   Res := T;
end;
 
procedure Swap(var a: integer; var b: integer);
var
   t: integer;
begin
   t := a;
   a := b;
   b := t;
end;
 
procedure RandomShuffle(var a: tArr; n: integer);
var
   i: integer;
begin
   for i := n downto 2 do
      Swap(a[i - 1], a[Random(i)]);
end;
 
procedure GetRandomNumbers(var T: tTree; Range: integer; Amount: integer);
var
   i: integer;
   numbers: tArr;
begin
   for i := 1 to Range do
      numbers[i] := i;
   Randomize;
   RandomShuffle(numbers, Range);
   for i := 1 to Amount do
      AddToTree(T, numbers[i]);
   
end;
procedure roundtree(t:ttree);
begin
   if t <> nil then begin
      roundtree(t^.right);
      writeln(t^.key);
      roundtree(t^.left);
   end;
end;
 
 
var
   T: tTree;
   N, Lucky, Unlucky: int64;
   i: integer;
   c: int64;
   Amnt: integer;
   DeltaAmnt: integer;
   f: text;
   res: tptr;
   new2: integer;
 
begin
   T := nil;
   c := 0;
   N := 0;
   Lucky := 0;
   Unlucky := 0;
   Amnt := 1000;
   DeltaAmnt := 1000;
   new2 := 20000;
   while Amnt <= 6000 do begin
      T := nil;
      GetRandomNumbers(T, Range, Amnt);
      for i := 1 to Range do begin
         Search(T, i, Res, c);
         if res <> nil then begin
            Lucky := Lucky + c;
            end
         else
            Unlucky := unlucky + c;       
 
     end;
      writeln((Lucky / amnt):2 );
      writeln((Unlucky / (Range - Amnt)):2);
      Amnt := Amnt + DeltaAmnt;
   end;
   
end.

procedure Search(T: tTree; K: integer; var Res: tPtr; var c: int64);
var
   Quit: boolean;
begin
   Quit := false;
   c := 0;
   repeat
      if T = nil then
         Quit := true
      else if K < T^.Key then begin
         T := T^.left;
         // c := 1;
         inc(c); // плюс одно сравнение
      end
      else if K > T^.Key then begin
         T := T^.right;
         // c := 2;
         inc(c, 2); // плюс два, первое - неудачное
      end
      else begin
         Quit := true;
         // c := 3;
         inc(c, 2); // третьего сравнения как такового не было, так что плюс два, оба неудачные
      end;
   until Quit;
   Res := T;
end;