Задана гипотенуза прямоугольного треугольника и длина одного из катетов. составьте программу, с помощью которой определите периметр и площадь этого треугольника. задача в паскале. Помогите пожалуйста((

Program PandS;
var a,b,c,s,p:real;
label start;
begin
start:
write(Введите длину гипотенузы: );
readln(c);
write(Введите длину катета: );
readln(a);
if c lt;= a then goto start;
b:=sqrt(sqr(c)-sqr(a));
p:=a+b+c;
s:=(a*b)/2;
writeln(периметр треугольника =,p);
writeln(площадь треугольника =,s);
end.

Var
  a, b: integer;
  q , p, S: real;
 
begin

Writeln(Введите длину гипотенузы прямоугольного треугольника: );
Readln(a);

Writeln(Введите длину катета прямоугольного треугольника: );
Readln(b);

q:=sqr(a)-sqr(b);
q:=sqrt(q);

p:=q+a+b;
Writeln(Периметр прямоугольного треугольника = , p, см.);

S:=a*b/2;
Writeln(Площадь прямоугольного треугольника = , S, см^2.);

end.