Помогите, (Паскаль) Написать программу, определяющую, равны ли два треугольника, которые заданы длинами сторон.

procedure swap(var x, y: integer);
var
t: integer;
begin
t := x;
x := y;
y := t;
end;

procedure sort3(var a1, a2, a3: integer);
begin
if a1 < a2 then swap(a1, a2);
if a2 < a3 then swap(a2, a3);
if a1 < a2 then swap(a1, a2);
end;

var
a1, b1, c1, a2, b2, c2: integer;
begin
write('стороны первого треугольника? ');
readln(a1, b1, c1);
write('стороны второго треугольника? ');
readln(a2, b2, c2);
sort3(a1, b1, c1);
sort3(a2, b2, c2);
if (a1 = a2) and (b1 = b2) and (c1 = c2) then writeln('равны')
else writeln('не равны');
end.