Вычисление катета прямоугольного треугольника. (паскаль)

Program h;
Var a,b:real;
Begin
Writeln ('Введите длину гипотенузы');
Readln(a);
Writeln('Введите длину катета');
Readln(b);
a:= sqrt (a*a-b*b);
Writeln(' Длина катета', ' ', b);
End.