Помогите найти ошибку) _)))

var
a, b, c, P : integer;
S, F1, F2, F3, F4, p1, R : real;
Begin
Writeln ('Ââåäèòå çíà÷åíèÿ ñòîðîí');
readln(a,b,c);
IF (a + b <= c) OR (a + c <= b) OR (c + b <= a) THEN
Writeln ('òàêîãî òðåóãîëüíèêà íå ñóùåñòâóåò') Else
P:=a+b+c;
p1:=P/2;
F1:=P1-a;
F2:=P1-b;
F3:=P1-c;
F4:=p1*F1*F2*F3;
S:=sqrt(F4);
R:=a*b*c/(4*S);
Writeln('Ðàäèóñ=', R);
End.

Результат даёт неверный ( Нужно найти радиус треугольника, вписанного в окружность)