计算三角形的面积，并判断三角形的类型?

1. 判断以a、b、c为边长的三边能否构成三角形： 用任意两边之和是否大于第三边来判断
   如果可以则计算三角形的面积，并判断三角形的类型。
var
  a,b,c,p,t,Aera: real;
  TriType :string;
   //录入abc的值
   if (a+b>c) and (a+c>b) and (b+c>a) then               //判断是否能构成三角形
   begin
        p := (a+b+c)/2;
        Aera := sqrt(p*(p-a)*(p-b)*(p-c));               //计算三角形面积
       
        if a>c then                                      //判断三角形类型
        begin
             t := c;
             c := a;
             a := t;
        end;
        if b>c then
        begin
             t := c;
             c := b;
             b := t;
        end;
        
        if c*c>a*a+b*b then
            TriType := '钝角三角形';   
        if c*c=a*a+b*b then
            TriType := '直角三角形';
        else
            TriType := '锐角三角形'; 

        ShowMessage('三角形是' + TriType + ',面积=' + FlostTostr(Aera)); 
   end
   else
        ShowMessage('错误:三边构不成一个三角形!');