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

program g;
{$APPTYPE CONSOLE}
const
    a=3.0;
    b=4.0;
    c=5.0;
var
    x, y, z, d: double;
    b1, b2, b3: Boolean;
 
procedure ex(var x1, x2: Double);
var
    s: double;
begin
    s := x1;
    x1 := x2;
    x2 := s
end;
 
begin
    x := a;
    y := b;
    z := c;
    if x>y then ex(x,y);
    if y>z then ex(y,z);
    if x>y then ex(x,y);
    if x+y<z then WriteLn('Треугольник невозможен')
    else
    begin
        d := x*x+y*y;
        if abs(d-z*z)<0.000001 then
            WriteLn('Треугольник прямоугольный')
        else
        begin
            if d<z*z then
                WriteLn('Треугольник тупоугольный')
            else
                WriteLn('Треугольник остроугольный')
        end;
        b1 := abs(x-y) < 0.000001;
        b2 := abs(y-z) < 0.000001;
        b3 := abs(z-x) < 0.000001;
        if b1 and b2 then
            WriteLn('Треугольник равносторонний')
        else if b1 or b2 or b3 then
            WriteLn('Треугольник равнобедренный')
        else
            WriteLn('Треугольник разносторонний')
    end
end.