Нарисовать треугольник на экране,около которого описывается окружность

uses crt,graphABC;
var x0,y0:integer;{Центр экранных координат}
    x1,y1,x2,y2,x3,y3:integer;{координаты вершин треугольника}
    x4,y4,x5,y5:integer;{координаты середин двух сторон }
    a1,b1,c1,a2,b2,c2:real;{коэффициенты двух уравнений прямых}
    xo,yo,r:integer;{координаты центра и радиус окружности}
    i:integer;{счетчик цикла}
    p:integer;{площадь треугольника при проверке ввода}
    ms:real;{масштаб при переводе реальных координат в экранные}
    s:string;{строка для вывода чисел}
begin
repeat
writeln('Координаты вершин [-100..100]:');
repeat
readln(x1,y1,x2,y2,x3,y3);
until(x1>=-100)and(x1<=100)and(y1>=-100)and(y1<=100)
and(x2>=-100)and(x2<=100)and(y2>=-100)and(y2<=100)
and(x3>=-100)and(x3<=100)and(y3>=-100)and(y3<=100);
p:=(x1-x3)*(y2-y3)-(x2-x3)*(y1-y3);
if p=0 then writeln('Точки на 1 прямой, повторите ввод');
until p<>0;
clearwindow;
hidecursor;
x0:=windowwidth div 2;
y0:=windowheight div 2;
ms:=(y0-20)/100;
line(x0-round(100*ms)-10,y0,x0+round(100*ms)+10,y0);{оси}
line(x0,10,x0,2*y0-10);
for i:=1 to 10 do{максимальное количество засечек в одну сторону}
 begin
  line(x0-3,y0-round(i*ms*10),x0+3,y0-round(i*ms*10));{засечки на оси У}
  line(x0-3,y0+round(i*ms*10),x0+3,y0+round(i*ms*10));
  {подпись оси У}
  str(i*10,s);
  textout(x0-35,y0-round(i*ms*10),s);{соответственно засечкам}
  textout(x0-40,y0+round(i*ms*10),'-'+s);
  line(x0+round(i*ms*10),y0-3,x0+round(i*ms*10),y0+3); {засечки на оси Х}
  line(x0-round(i*ms*10),y0-3,x0-round(i*ms*10),y0+3);
  {подпись оси Х}
  if i mod 2=0 then
   begin
    textout(x0+round(i*ms*10)+5,y0+10,s);
    textout(x0-round(i*ms*10)+5,y0+10,'-'+s);
   end\
 end;
{центр}
textout(x0-15,y0+10,'0');
{подписи концов осей}
textout(x0+round(100*ms),y0-20,'X');
textout(x0+5,10, 'Y');
{serediny storon}
x4:=(x1+x2) div 2;
y4:=(y1+y2) div 2;
x5:=(x1+x3) div 2;
y5:=(y1+y3) div 2;
{koord. centra}
a1:=x2-x1;
b1:=y2-y1;
c1:=x4*(x2-x1)+y4*(y2-y1);
a2:=x3-x1;
b2:=y3-y1;
c2:=x5*(x3-x1)+y5*(y3-y1);
xo:=round((c1*b2-c2*b1)/(a1*b2-a2*b1));
yo:=round((a1*c2-a2*c1)/(a1*b2-a2*b1));
r:=round(sqrt(sqr(x1-xo)+sqr(y1-yo)));
setpencolor(clBlue);
line(x0+round(x1*ms),y0-round(y1*ms),x0+round(x2*ms),y0-round(y2*ms));
line(x0+round(x2*ms),y0-round(y2*ms),x0+round(x3*ms),y0-round(y3*ms));
line(x0+round(x1*ms),y0-round(y1*ms),x0+round(x3*ms),y0-round(y3*ms));
delay(1000);
setpencolor(clRed);
setbrushstyle(bsClear);
circle(x0+round(xo*ms),y0-round(yo*ms),round(r*ms)+1);
end.