Необходима консультация!Почему появляется ошибка о плавающей запятой?

[_Иван_]

{Даны n окружностей на плоскости, заданных координатами своих центров и радиусами. Найти все окружности, в которые вложена самая маленькая окружность. Использовать ЗАПИСИ. Исходные данные получить с помощью генератора случайных чисел. Решение проиллюстрировать графически. Все координаты вещественные!}

program vosemnad;
uses Graph,crt;
const
grScreen_Color=8;{fonovii cvet}
isk_Color=15;{cvet iskomih okr}
ost_Color=14;{cvet ostalnih okr}
grX0=100;{x-koordinata levogo kraya risunka}
grY0=400;{y-koordinata nishnego kraya risunka}
grLx=300;{shirana risunka}
grLy=300;{visota risunka}
nmax=20;
type Okr = record
x0,y0,r :integer;

end;
var grDriver,grMode,n,i,x,y,r,min:integ er;
a :array [1..nmax] of okr;
begin
{pereidem v grafichesky reshim}
grDriver:=Detect;
InitGraph(grDriver,grMode,'');
if GraphResult<>grOK Then begin
{ne udalos inicializirovat grafiuku}
writeln('grafich dribver ne naiden');
halt(0);
end;
{zakrasim ekran v fonovii cvet}
SetFillStyle(SolidFill,grScreen_Col or);
bar(0,0,GetMaxX,GetMaxY);
{proizvolno prisvoim kol-vu okr-tei nekotoroe znachenie}
Randomize;
n:=0; while n<2 do n:=round(Random(nmax));{dlia resheniia dolshno bit'
ne menee 2 okr-tei}
for i:=1 to n do
begin
a[i].x0:=(random(440)+100);{640-200 radius s kashdoi storoni}
a[i].y0:=(random(280)+100);{280=480-200}
a[i].r:=random(100);
end;
min:=1;{nomer samoi maloi okr}
for i:=1 to n-1 do if (a[i].r<a[i+1].r) and (a[i].r<min) then min:=i;
for i:=1 to n-1 do{nahoshu nomera iskomih okrushnostei}
begin
if (a[min].r+a[i].r)>(sqrt(sqr(a[i].x0-a[min].x0)+sqr(a[i].y0-a[min].y0)))

//!!!!ОШИБКА ЗДЕСЬ!!ЕСЛИ сумма радиусов 2-х окружностей меньше растояния между центрами окружностей то
//рисуем окружность одного цвета ,а в противном случае-другого...

then
begin
setcolor(isk_Color);
x:=a[i].x0;
y:=a[i].y0;
r:=a[i].r;
circle(x,y,r);
end
else
begin
setcolor(Ost_Color);
x:=a[i].x0;
y:=a[i].y0;
r:=a[i].r;
circle(x,y,r);
end;
end;
readkey;
Closegraph;
end.

[_Иван_]

___________________________________ ___________________________________ _________________

[_Иван_]

Так, сейчас обнаружил что в задании координаты нужно задавать вещественные, а у меня целочисленный тип...А если поменять то возможно появятся другие недоработки, что еще нужно изменить чтобы ошибок не появлялось?
П.С.Паскаль у меня сейчас отсутствует, поэтому задачу смогу реализовать только в понедельник, если есть возможность, то помогите устранить ошибки.

[Mad_Cat]

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

Масштабировать так как вся графика в паскале построена на целых числах)

[_Иван_]

Это мой первый опыт работы с графикой. Как выполняется масштабирование?
Может быть ссылка есть?...

[Сtrl]

Как выполняется масштабирование?

При выводе умножайте размеры и координаты на определенный коэффициент.