Что не так в коде проги по построению окружности за Брезенхемом

[Влад09]

Вот код но он не работает!!ПОмогите пожалуйста!!Очень прошу!!!


procedure bres_circle(xc,yc,r:interger):
var x,y,d:integer:
procedure sim(x,y;integer);
begin
putpixel(x+xc,y+yc,White);
putpixel(x+xc,-y+yc,White);
putpixel(-x+xc,-y+yc,White);
putpixel(-x+xc,y+yc,White);
putpixel(y+xc,x+yc,White);
putpixel(y+xc,-x+yc,White);
putpixel(-y+xc,-x+yc,White);
putpixel(-y+xc,x+yc,White);
end;
begin
d:=3-2*y;
x:=0;
y:=r;
while(x <= y) do
begin
sim(x,y);
if d<0 then d:=d+4*x+6
else begin
d:=d+4*(x-y)+10;
dec(y)
end;
inc(x)
end;
end;

[Kingdom_Reborn]

вот процедура, правда коряво написана, но работает

procedure DrawCircle (const xc, yc, R, color:integer);
label 1,2,3,4,10,20,30;
var
    lim, x, y, di, s1, s2: Integer;
begin                      	    
    x := 0;
    y := R;
    lim := 0;
    di := 2 * (1 - R);
1:  PutPixel(x + xc, y + yc, color);
    PutPixel(x + xc, -y + yc, color);
    PutPixel(-x + xc, y + yc, color);
    PutPixel(-x + xc, -y + yc, color);
    if y <= lim then goto 4;   
    if di < 0 then goto 2;
    if di > 0 then goto 3;
    if di = 0 then goto 20;
2:  s1 := 2 * di + 2 * y - 1 ;
    if s1 <= 0 then goto 10;
    if s1 > 0 then goto 20;
3:  s2 := 2 * di - 2 * x - 1;          
    if s2 <= 0 then goto 20;
    if s2 > 0 then goto 30;
10: x := x + 1;                           
    di := di + 2 * x + 1;
    goto 1;
20: x := x + 1;                            
    y := y - 1;
    di := di + 2 * x - 2 * y + 2;
    goto 1;
30: y := y - 1;                            
    di := di - 2 * y + 1;
    goto 1;
4:
end;