процедуры и функции

Program sum;
Uses crt;
Var a,b,z,c,k,d,e,l,g: real;
Procedure prof(a,b: real; var f: real);
begin
If a>0 then f:=a+b
else if (a>=0) and (a<=1) then f:=a-b
else if a<0 then f:=b-a;
end;
Begin
Clrscr;
Randomize;
a:=random;
b:=random;
Write('Введите значение параметра a: ');
Readln(k);
Write('Введите значение параметра b: ');
Readln(l);
prof(sin(a)+cos(b),a+b,c);
prof(a-b,a,d);
prof(sqr(sin(a))-2,k,e);
prof(k+3,l+1,g);
z:=c+d+e+g;
Write('Значение параметра z = ',z);
End.

uses crt;
var a,b,z,x,y:real;
function f(u,t:real):real;
Begin
     if (u>0) then f:=u+t else
     if (u<=0) and (u>=1) then f:=u-t else
     if (u<0) then f:=t-u else
End;
BEGIN
writeln ('vvedit a,b,x,y');
readln (a,b,x,y);
z:=f(sin(x)+cos(y),x+y)+f(sin(x),cos(y))+f(x-y,x)+f(sqr(sin(x))-2,a)+f(a+3,b+1);
writeln ('z=',z:5:2);
repeat until keypressed;
END.