Меню в паскале, не могу найти ошибку

Function Get_X:word; assembler;
  asm
    mov   ax,3
    int   33h
    mov   ax,cx
  end;
 
Function Get_Y:word; assembler;
  asm
    mov   ax,3
    int   33h
    mov   ax,dx
  end;
 
procedure kordinates_for_menu(var zero_kord,menu_kord:t1; var vector:t3);
  begin
    zero_kord[1,1]:=GetMaxX div 2;
    zero_kord[1,2]:=-rad;
    zero_kord[2,1]:=GetMaxX+rad;
    zero_kord[2,2]:=GetMaxY div 5*2;
    zero_kord[3,1]:=GetMaxX div 3*2;
    zero_kord[3,2]:=GetMaxY+rad;
    zero_kord[4,1]:=GetMaxX div 3;
    zero_kord[4,2]:=GetMaxY+rad;
    zero_kord[5,1]:=-rad;
    zero_kord[5,2]:=GetMaxY div 5*2;
    menu_kord[1,1]:=GetMaxX div 2;
    menu_kord[1,2]:=GetMaxY div 5;
    menu_kord[2,1]:=GetMaxX div 4*3;
    menu_kord[2,2]:=GetMaxY div 5*2;
    menu_kord[3,1]:=GetMaxX div 3*2;
    menu_kord[3,2]:=GetMaxY div 4*3;
    menu_kord[4,1]:=GetMaxX div 3;
    menu_kord[4,2]:=GetMaxY div 4*3;
    menu_kord[5,1]:=GetMaxX div 4;
    menu_kord[5,2]:=GetMaxY div 5*2;
    vector[1,1]:=0;
    vector[1,2]:=1;
    vector[2,1]:=-1;     {задаем кординаты для рисования меню}
    vector[2,2]:=0;
    vector[3,1]:=0;
    vector[3,2]:=-1;
    vector[4,1]:=0;
    vector[4,2]:=-1;
    vector[5,1]:=1;
    vector[5,2]:=0;
 
  end;
procedure draw_main_menu(var rad:word; var zero_kord,menu_kord:t1; vector:t3);
  var
    bool:array[1..5] of boolean;
    f:boolean;
  begin
    for i:=1 to 5 do
        bool[i]:=false;
    repeat
       SetColor(white);
       for i:=1 to 5 do
         if bool[i]=false then
           begin
             Circle(zero_kord[i,1],zero_kord[i,2],Rad);
           end;
       for i:=1 to 5 do
          if (zero_kord[i,1]=menu_kord[i,1]) and (zero_kord[i,2]=menu_kord[i,2])
               then bool[i]:=true;
       SetColor(Black);
       delay(100);
       for i:=1 to 5 do
         begin
           if bool[i]=false then
             begin
               Circle(zero_kord[i,1],zero_kord[i,2],Rad);
               add(zero_kord[i,1],vector[i,1]);                           {рисуем выезд меню}
               add(zero_kord[i,2],vector[i,2]);
             end;
         end;
       f:=true;
       for i:=1 to 5 do if bool[i]=false then f:=false;
     until f=true;
     SetColor(white);
     for i:=1 to 5 do OutTextXY(menu_kord[i,1],menu_kord[i,2],menu1[i]);
   end;
 
procedure What_key_pressed(menu_kord:t1; rds,x_mo,y_mo:word; var p:byte);
  var
 
    i:byte;
  function rast(x1,x2,y1,y2,rds:word):boolean;
    var
     d:word;                                                {определяем какая нажата клавиша меню}
    begin
      rast:=false;
      d:=sqr(x2-x1)+sqr(y2-y1);
      if d<=rds*rds then rast:=true;
    end;
 
  begin
    for i:=1 to 1 do
      begin
        if rast(x_mo,menu_kord[i,1],y_mo,menu_kord[i,2],rds)=true then p:=i;
      end;
  end;
 
 
 
procedure menu;
  var
    f:boolean;
    a:char;
    choose,p,k:byte;
    size,r:word;
    t:pointer;
    x_mo,y_mo,d,key:word;
 
  begin
    d:=60;
    kordinates_for_menu(zero_kord,menu_kord,vector);
    draw_main_menu(d,zero_kord,menu_kord,vector);
    repeat
      r:=Get_Button;
      What_key_pressed(menu_kord,d,Get_X,Get_Y,p);
      if (p<>0) and  (r=1) then
        begin
          SetColor(black);
          Circle(menu_kord[p,1],menu_kord[p,2],60);
          SetColor(white);
          Circle(menu_kord[p,1],menu_kord[p,2],80);
          k:=p;                                                             {рисуем само меню: если мышь нажала на круг то выделяем его, но почему-то если нажимаем в пусто то он всеравно выделяется}
        end;
      r:=Get_Button;
      What_key_pressed(menu_kord,d,Get_X,Get_Y,p);
      if p=0 then
        begin
          SetColor(black);
          Circle(menu_kord[k,1],menu_kord[k,2],80);
          SetColor(white);
          Circle(menu_kord[k,1],menu_kord[k,2],60);
        end;
        k:=p;
    until r=2;
  end;