Переделать циклический код в паскале

[tema001]

Нужно переделать код программы, чтобы не было Function, а результат не изменился.
PROGRAM _1;
uses crt;
CONST An=1.2;Ak=2.4;Xn=0.1;Xk=0.3;m=3;n=2 ;
VAR x,a,Hx,Ha:REAL;
i,j:INTEGER;
Function Z(Xz,Az:REAL):REAL;
begin
If Sin(Az-Xz)>0.5 then
Z:=(SQR(Sin(Xz)/Cos(Xz))+Ln(Az))/(Xz+Az)
else
Z:=Xz*2+SQRT(SQRT(Az))*3-Exp(Xz*5);
end;
BEGIN
Ha:=(Ak-An)/m;
Hx:=(Xk-Xn)/n;
Write(' ');
For j:=0 to m do
Write(' a=',An+Ha*j:3:1);
WriteLn;
For i:=0 to n do
begin
Write('x=',Xn+Hx*i:3:1);
For j:=0 to m do
Write(Z(Xn+Hx*i,An+Ha*j):11:4);
WriteLn;
end;
ReadLn;
END.

[Базиля]

Держи

PROGRAM _1;
uses crt;
CONST An=1.2;Ak=2.4;Xn=0.1;Xk=0.3;m=3;n=2 ;
VAR z,xz,az,x,a,Hx,Ha:REAL;
i,j:INTEGER;
BEGIN
Ha:=(Ak-An)/m;
Hx:=(Xk-Xn)/n;
Write(' ');
For j:=0 to m do
Write(' a=',An+Ha*j:3:1);
WriteLn;
For i:=0 to n do
begin
Write('x=',Xn+Hx*i:3:1);
For j:=0 to m do
begin
xz:=Xn+Hx*i;
Az:=An+Ha*j;
If Sin(Az-Xz)>0.5 then
Z:=(SQR(Sin(Xz)/Cos(Xz))+Ln(Az))/(Xz+Az)
else
Z:=Xz*2+SQRT(SQRT(Az))*3-Exp(Xz*5);
write(z:11:4);
end;
WriteLn;
end;
ReadLn;
END.

[tema001]

Спасибо!!!