компьютерная графика

[Черная тень]

по заданным значениям координат центра окружности и числа N , построить окружность максимального радиуса, целиком помещающуюся в экран и разбить её на N заштрихованных разными типами штриховки полос равной ширины. у кого какие варианты?

[Черная тень]

Program oooo;
uses crt,graph;
var n,i,gd,gm,x0,y0,r,r1:integer;
begin
clrscr;
repeat
write('x0=');readln(x0);
write('y0=');readln(y0);
until (x0>0)and(x0<640)and(y0>0)and(y0<48 0);
write('N=');readln(n);
gd:=detect;
InitGraph(gd,gm,'d\tp\bgi');
r:=y0;
if (getmaxY-y0)<r then r:=(getmaxY-y0);
if x0<r then r:=x0;
if (getmaxX-x0)<r then r:=(getmaxX-x0);
Setcolor(4);
Circle(x0,y0,r);
for i:=n downto 1 do
begin
r1:=round(r*(i)/n);
SetFillStyle(i+1,i+1);
FillEllipse(x0,y0,r1,r1);
end;
readln;
closegraph;
end.

есть ошибки...

[Черная тень]

Хееелп!!! погибаю!!!

[Serge_Bliznykov]

есть ошибки...

вроде бы всё работает!
А в чём Ваша "погибель"????!

[Черная тень]

в том что не могу эти ошибки найти(((

[Serge_Bliznykov]

трудно поймать чёрную кошку в тёмной комнате...
Особенно, когда её там нет... :В

А какие ошибки там есть?.. Они как то проявляются? Или Вы их просто чувствуете?!

Надеюсь, Вы понимаете, что эта программа под DOS версию Паскаля: Turbo Pascal?!!!
Кроме того, требуется библиотека графики Graph.tpu и драйвера *.BGI (путь к драйверам указывается при иницилизации графики:

InitGraph(gd,gm,'d\tp\bgi');

[Черная тень]

благодарю за помощь!!! просто было немного ошибок)