[VotapilD]

Ок, перевёл всё в реал.
Ошибка в параметре 1(ошибка 2 раза):
dre:=sqrt(sqr(Xc[j]-Xc[i])+sqr(Yc[j]-Yc[i]));
DrawEllipse(xc[i], yc[i], d, d);

Если во втором я понимаю, то в первом-нет(
Насколько я понял, ему не нравится -sqr(Xc[j]-Xc[i])+sqr(Yc[j]-Yc[i]) (чем же это может не нравиццо?=) )
Ps.
Вторую решил добавлением
function round(x:real):integer;
begin
end;
...
DrawEllipse(round(xc[i]), round(yc[i]), d, d);
...