求直角三角形的面积和周长,出现问题.不知道怎么解决.

var
a,b,c:real;
s,z:real;
begin
           a:=strtofloat(edit1.Text);