Question

(Работа с подпрограммами Pascal)
Что не так с программой? В чем ошибка?
program primer1;
Procedure f (u:real; var c:real);
begin
if u<0 then c:=-1 else if u>0 then c:=1 else c:=0;
end;
Var a,b,z,f1,f2:real;
begin
writeln ('a=');readln (a);
writeln ('b=');readln (b);
f(sqr(a)*sign(a+b)+sqr(b)*sign(a-b),f1);
f(sign(a*b),f2);
z:=f1*f2;
writeln ('z=',z:6:3);
readln
end.