Написать процедуру, которая подсчитывает, является ли треугольник прямоугольный и равнобедренный. Вводим 3 стороны a,b,c, далее их проверяем, ибо по условию должно быть a <= b <= c, если нет-то выставляем в нужном порядке- Pascal(Паскаль)

program procpvz;
var a,b,c: integer;
    x,y:boolean;
    procedure trig (a,b,c: integer; var stat,lyg:boolean);
        var q,w,e: integer;
    begin
        q:=a;
        w:=b;
        e:=c;
        if (a<c) and (c<b) then {1,3,2}
            begin
                b:=e;
                c:=w;
            end
            else if (b<a) and (a<c) then {2,1,3}
                begin
                    a:=w;
                    b:=q;
                end
            else if (c<a) and (a<b) then {2,3,1}
                begin
                    a:=e;
                    b:=q;
                    c:=w;
                end
            else if (b<c) and (c<a) then{3,1,2}
                begin
                    a:=w;
                    b:=e;
                    c:=q;
                end
            else if (c<b) and (b<a) then {3,2,1}
                begin
                    a:=e;
                    c:=q;
                end;
            lyg:=(a=b) or (b=c) or (c=a);
            stat:=((a*a)+(b*b))=(c*c);
            end;
        
begin
write('введите стороны ');
readln(a,b,c);
trig(a,b,c,x,y);
write(x,y);
readln;
end.