max(a,b) Как написать в паскале? Ошибку выбивает

procedure TForm1.Button1Click(Sender: TObject);

var y,z,a,t,b,x,u:real;

begin

x:=(sqr(sin(t)))+(sin(sqr(t)));

u:=0.5;

t:=max(a,b);

a:=sin(u);

b:=cos(u);

if (x<=0) then z:=1+(sin(x)/cos(x));

if (x>0) then z:=1;

if (x>1) then z:=1+(ln(x));

Label1.Caption:=FloatToStr(z);

end;

end.