Арифметическое переполнение

[hasana]

вот процедурая, которая чертит круг...
почему то выскакивает арифметическое переполнение, когда d<0;

uses graph;
PROCEDURE DrawCircle(xc, yc, Radius : Word);
VAR
   X,Y: Integer;
   d:integer;

Begin
     { draw the circle }
     d:=0;
     d:= 3 - (2 * Radius); ---здесь и происходит переполнение 
     X:=0;
     Y := Radius;

     while Not(x=y) Do
     Begin
          if (d<0) Then
             d := d+(4*x)+6
          else
          Begin
               d := d+((x-y)*4)+10;
               Y := Y - 1;
          End;
          { Bottom-Right }
          putpixel(xc+x,yc+y,4);
          { Top-Right }
          putpixel(xc+x,yc-y,4);
          { Bottom-Left }
          putpixel(xc-x,yc+y,4);
          { Top-Left }
          putpixel(xc-x,yc-y,4);
          { Right-Bottom }
          putpixel(xc+y,yc+x,4);
          { Right-Top }
          putpixel(xc+y,yc-x,4);
          { Left-Bottom }
          putpixel(xc-y,yc+x,4);
          { Left-Top }
          putpixel(xc-y,yc-x,4);

          Inc(x);
          If X > Y Then Break;
     End;
End;
var device,mode:integer;
xc,yc,radius:word;
begin
writeln('please, enter the x and y center and radius');
readln(xc,yc,radius);
initgraph(device,mode,'');
DrawCircle(xc, yc, Radius);
readln;
circle(xc,yc,radius);
readln;
closegraph;
end.

[_-Re@l-_]

Вот почему:

 Radius : Word

 d:integer;

А должны быть оба Integer.

[hasana]

Сообщение от _-Re@l-_

Вот почему:

 Radius : Word

 d:integer;

А должны быть оба Integer. ^)

всё, понял... спасибо