Треугольник. Задача по делфи

[Bracho1994]

Здравствуйте.
Задача такова :
даны 3 числа. если эти числа могут быть длинами сторон треугольника, то вычислить его полупериметр. в противном случае найти максимальное из них.

procedure TForm1.Button1Click(Sender: TObject);
Var A,B,C:real;
    max:double;
begin

 A:=Strtofloat (Edit1.Text);
 B:=Strtofloat (Edit2.Text);
 C:=Strtofloat (Edit3.Text);
 if (a < b+c) and (b < a+c) and (c < a+b)
  then label2.caption:='треуг сущ. Полупериметр = ' + FloatToStr((a+b+c)/2)
  else
  begin
   if (a>b) and (a>c) then max:= a;
   if (c>b) and (c>a) then max:= c;
   if (b>a) and (b>c) then max:= b;
   label2.caption:='треуг не сущ. Макс число = ' + FloatToStr(max) ;
end;
end;
end.

Программа запускается и работает. Например, когда я вписываю числа 12 14 14(а б с соответственно) она ищет полупериметр, но когда я вписываю числа 12 14 40, то пишет, что треуг не существует и вычисляет сумму.
В чем проблема? Помогите, пожалуйста.
пс. треуг существет, если сумма двух его сторон больше третьей

[s-andriano]

Сообщение от Bracho1994

Программа запускается и работает. Например, когда я вписываю числа 12 14 14(а б с соответственно) она ищет полупериметр, но когда я вписываю числа 12 14 40, то пишет, что треуг не существует...
В чем проблема?

Нет здесь проблемы, так и должно быть.

[Bracho1994]

Ой глупый я... Начал на рисунке проверять и действительно.. Не с той ноги сегодня встал. Спасибо, что направили на нужный путь^^