Два прямоугольных треугольника заданы своими катетами. Определить, у какого треугольника гипотенуза больше и на сколько? Составить программу(Pascal)

Program triangles;
var a, b, a1, b1, hyp, hyp1:real;
begin
readln(a);
readln(b);
readln(a1);
readln(b1);
hyp:= sqrt(a*a + b*b);
hyp1:= sqrt(a1 + a1 + b1*b1);
if hyp1 > hyp then
writeln(‘У второго треугольника гипотенуза на ’, hyp1 - hyp, ‘ больше чем у первого’);
else:
writeln (‘У первого треугольника гипотенуза на ’, hyp - hyp1, ‘ больше чем у первого’);
end.