пупырка

Знаю ,как программа пишется через функцию , а нужно через процедуру
Помогите , пожалуйста (Паскаль)
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[i],y[j]);

for i:=0 to n do begin
write(x[i]:10:3);
end;
writeln();
for i:=0 to n do begin
write(y[i]: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

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

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;

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

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

пупырка

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