По длинам отрезков построить треугольник и вписать в него окружность

uses crt,graph;
var a,b,c,x0,y0,r,x1,y1,x2,y2,x3,y3,xc,yc,dx,dy,d1,d2,ba:longint;
    gd,gm:integer;
    m,x,h,s:real;
begin
clrscr;
repeat
writeln('Vvedite dliny storon a,b,c:');
readln(a,b,c);
if(a>=b+c)or(b>=a+c)or(c>=a+b) then
writeln('Ne treugolnik, povtorite vvod');
until(a<b+c)and(b<a+c)and(c<a+b);{проверим что это именно
                                  длины сторон треугольника}
gd:=0;
initgraph(gd,gm,'');
x0:=getmaxX div 2;{центр экрана}
y0:=getmaxY div 2;
x:=(a*a+b*b-c*c)/(2*a);{пусть сторона А основание, найдем
                        длину отрезка от левого края до основания высоты}
h:=sqrt(b*b-x*x);{вычислим длину высоты}
m:=(y0-40)/(h/2);{масштаб если высота больше половины длины основания}
if (x0-60)/(a/2)<m then m:=(x0-60)/(a/2);{или наоборот}
{координаты основания}
y1:=y0+round(h*m/2);{по вертикали ниже центра}
y2:=y1;             {на половину высоты}
x1:=x0-round(a*m/2);{по горизонтали}
x2:=x0+round(a*m/2);{влево и вправо на половину основания}
{координаты вершины}
x3:=x1+round(x*m);{по горизонтали по основанию высоты}
y3:=y0-round(h*m/2);{по вертикали выше центра на половину высоты}
setcolor(12);{рисуем треугольник}
line(x1,y1,x2,y2);
line(x2,y2,x3,y3);
line(x1,y1,x3,y3);
s:=a*h/2;{площадь треугольника}
r:=2*round(s*m/(a+b+c));{радиус вписанной окружности}
d1:=round(a*b*m/(b+c));{длина отрезка от левого конца основания
                       до основания бисектрисы на эту сторону}
dx:=x1+d1;{координата X основания биссектрисы}
dy:=y1;{координата Y}
ba:=round(sqrt(sqr(x3-dx)+sqr(y3-dy)));{длина биссектрисы}
d2:=round(ba*d1/(d1+b*m));{длина части биссектрисы от основания
                           до точки пересечения биссектрис}
xc:=dx+round((x3-dx)*d2/ba);{координаты центра вписанной окружности}
yc:=dy+round((y3-dy)*d2/ba);
setcolor(14);{рисуем окружность}
circle(xc,yc,r);
readln
end.

program kursovaya;
uses crt;
var nPunkt,KeyAscii,a:integer;
Key:char;
procedure About;
begin
clrscr;
Textcolor(3);
GotoXY (22,7);
Write('Kursovaya rabota po informatike');
GotoXY (15,8);
Write('"Raschet znacheniya funkcii i postroenie ee graphica"');
GotoXY(27,25);
Write ('Ekaterinburg 2012');
Readln;
end;
procedure Exit;
begin
exit;
end;
begin
a:=0;
clrscr;
nPunkt :=1;
repeat
clrscr;
if nPunkt=1 then Textcolor(3) else TextColor(2);
GotoXY(30,7);
Writeln('O programme');
if nPunkt=2 then Textcolor(3) else TextColor(2);
GotoXY(30,8);
Writeln('Vvod dannih');
if nPunkt=3 then Textcolor(3) else TextColor(2);
GotoXY(30,9);
Writeln('Rachet');
if nPunkt=4 then Textcolor(3) else TextColor(2);
GotoXY(30,10);
Writeln('Graphic');
if nPunkt=5 then Textcolor(3) else TextColor(2);
GotoXY(30,11);
Writeln('Vihod');
Key:=ReadKey;
KeyAscii:=Ord(key);
if KeyAscii=0 then
begin
Key:=ReadKey;
KeyAscii:=Ord(Key);
end;
if KeyAscii=80 then nPunkt:=nPunkt+1;
if KeyAscii=72 then nPunkt:=nPunkt-1;
if nPunkt>5 then nPunkt:=1;
if nPunkt<1 then nPunkt:=5;
if KeyAscii=13 then
begin
if nPunkt = 1 then About;
if nPunkt = 5 then a:=1;
end;