Введите три числа. Если они могут быть длинами сторон многостороннего остроугольного

Не уверена, что по длине сторон можно определить, что треугольник остроугольный, но представила, что тут можно использовать т. Пифагора, т.е. если квадрат гипотенузы (большей стороны) окажется меньше суммы квадратов катетов (наименьших сторон), то соответственно и угол меж последними окажется меньше 90 градусов. Если я не права, прошу, отметьте ошибкой, пусть удалят. 
Итак:

program aaa;
var a,b,c,x,y,z,s,p: real; 
begin
writeln ('Введите стороны треугольника A, B и C');
readln (a,b,c);

  поначалу найдем наименьшую, среднюю и великую сторону
  и присвоим их значения, соответственно, переменным x, y и z

 
    if alt;b
     then
      if alt;c
        then 
          if blt;c
            then begin x:=a; y:=b; z:=c end
            else begin x:=a; y:=c; z:=b end
         else begin x:=c; y:=a; z:=b end 
      else
        if agt;c
          then 
            if blt;c
              then begin x:=b; y:=c; z:=a end 
              else begin x:=c; y:=b; z:=a end 
          else begin x:=b; y:=a; z:=c end; 
    
    Сейчас узнаем, является ли треугольник разносторонним и остроугольным:
    Для этого сравним длины сторон меж собой а также сумму квадратов наименьших сторон с квадратом большей
          
 if ((x*x+y*y)gt;(z*z)) and (alt;gt;b) and (alt;gt;c) and (blt;gt;c)
  then begin  
    p:=(a+b+c)/2;   // обретаем полупериметр
    s:=sqrt(p*(p-a)*(p-b)*(p-c));   // обретаем площадь треугольника
    writeln(x,'  ',y,'  ',z,'   - могут быть гранями остроугольного разностороннего треугольника');
    writeln('Площадь этого треугольника = ',s)
    end
  else
    writeln(a:4,b:4,c:4,' - не могут быть гранями остроугольного многостороннего треугольника')
end.