Помогите заменить функцию на процедуру

[пупырка]

Помогите заменить функцию на процедуру

Знаю ,как программа пишется через функцию , а нужно через процедуру
Помогите , пожалуйста (Паскаль)
program Function_2;

const n=5;
type Tmass=array[0..n] of real;
Tmass1=array[0..n,0..n] of real;
var x,y:Tmass;
z:Tmass1;
i,k,j:integer;
a,b,h:real;
function f(x,y:real):real;
begin
f:= 1+(sin(3*x)*ln(x*x+y*y+1)-exp(x*y))/(cos(5*x+y)*x*x+y*y+4);
end;
Begin
writeln('введи а, b');
readln(a,b);
h:=(b-a)/n;
for k:=0 to n do begin
x[k]:=(a+h*k);
y[k]:=(a+h*k);
end;
for i:=0 to n do
for j:=0 to n do
z[i,j]:=f(x,y[j]);

for i:=0 to n do begin
write(x:10:3);
end;
writeln();
for i:=0 to n do begin
write(y:10:3);
end;
writeln();
for i:=0 to n do begin writeln();
for j:=0 to n do begin
write(z[i,j]:10:3);
end;
end;
end.

 

[Vladimir_S]

"Элементарно, Ватсон!" © Вместо

function f(x,y:real):real;
begin
f:= 1+(sin(3*x)*ln(x*x+y*y+1)-exp(x*y))/(cos(5*x+y)*x*x+y*y+4);
end;

пишем

Procedure XYZ(x,y:real; var z:real); {имя процедуры - на свой вкус}
begin
z:= 1+(sin(3*x)*ln(x*x+y*y+1)-exp(x*y))/(cos(5*x+y)*x*x+y*y+4);
end;

и дальше вместо

z[i,j]:=f(x,y[j]);

ставим

XYZ(x,y,z[i,j]);

 

[пупырка]

Спасибо большое )