Реализовать смену частоты звука в заданных пределах

procedure game;
var a,b,i,x,xt,x0,y,yt,y0:integer; {xt,yt- координаты неизвестной точки, x,x0,y,y0 - текущие и предыдушие координаты курсора }
 s,s0,f:real; {s,s0 - радиусы от курсора до точки до и после нажаитя кнопки, f- коэфицент изменения частоты звука }
begin
randomize;
xt:=random(128)*5; 
yt:=random(64)*5;
x:=320;y:=240; 
setfillstyle(1,10);
bar(xt,yt,xt+5,yt+5);
setfillstyle(1,5);
bar(x,y,x+5,y+5); {}
s:=0; f:=1;
repeat
       s0:=sqrt(sqr(0.1*(x0-xt))+sqr(0.1*(y0-yt)));
       key:=readkey;
       if ord(key)=0 then
       begin
        key:=readkey;
        x0:=x; y0:=y;
         case ord(key) of
        77: if x<=getmaxx-5 then x:=x+5;
        75: if x>=5 then x:=x-5;
        72: if y>=5 then y:=y-5;
        80: if y<=getmaxy-5 then y:=y+5;
       end;
     if (x<>x0) or (y<>y0) then
      begin
       setfillstyle(1,0);
       bar(x0,y0,x0+5,y0+5);
       setfillstyle(1,5);
       bar(x,y,x+5,y+5);
       s:=sqrt(sqr(0.1*(x-xt))+sqr(0.1*(y-yt)));
       if s<s0 then f:=f+0.01 else f:=f-0.01;
       sound(22+trunc(f*440));
 
      if (x=xt)and(y=yt) then win;
      end;
     end;
until ord(key)=27;
nosound;
end;