Исправьте пожалуйста графика паскаль

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


uses crt,graph;
var gd,gm,n,x,y,r,i,h,a,b:integer;
begin
clrscr;
write('n=');readln(n);
{вводим координаты, в пределах экрана}
repeat
write('x ot 10 do 620 =');readln(x);
write('y ot 10 do 460 =');readln(y);
until(x>=10)and(x<=620)and(y>=10)and(y<= 460);
r:=x;{ищем минимальное расстояние до края экрана=максимальный радиус}
if 640-x<r then r:=640-x;
if y<r then r:=y;
if 480-y<r then r:=480-y;
gd:=0;
InitGraph(gd,gm,'');
h:=round(360/n);{центральный угол сектора}
for i:=1 to n-1 do{рисуем n-1 сектор}
begin
a:=h*(i-1);{начальный угол}
b:=h*i;{конечный угол}
Setfillstyle(1,i);{закрашивание цветом по номеру}
PieSlice(x,y,a,b,r);{рисование суктора}
end;
Setfillstyle(1,n);{рисуем последний сектор, подбирая все погрешности округления}
PieSlice(x,y,b,360,r);
readln;
CloseGraph;
End.

0