Matematické Fórum

Ahoj,
toto je muj pokus o proceduru, ktera vytvari BVS (promenne a $cislo jsou globalnimi promennymi), nicmene se mi jiz druha hodnota neuklada do vetve v^.right :(. Prosim o radu

type Prvek = integer;
        Ukazatel = ^Uzel;
        Uzel = record
                   hodnota: Prvek;
                   left, right: Ukazatel;
                   end;
var cislo: integer;
      koren: Ukazatel;

procedure Plus(var v: Ukazatel);
begin
if v = nil then
   begin
   new(v);
   v^.left := nil;
   v^.right := nil;
   v^.hodnota := cislo;
   writeln(v^.hodnota);
   writeln('count pred 0: ', count);
   if count = 0  then
      koren := v;
   inc(count);
   v := koren;
   end
else if cislo < v^.hodnota then
   Plus(v^.left);
else if cislo > v^.hodnota then
   Plus(v^.right);
end;