[M.A.D.M.A.N.]

Код:

function Poten(x,y:extended):integer;
 var
   q,r : extended;
 begin
   r:=sqrt(sqr(x-100)+sqr(y-100));
   Result:=Round(q/r);
 end;

Ну здесь переменная q не проинициализирована.