What's the mistake of expressing the function in the pasta?

[derk]

const
m=10;
n=2;
k=3;
type
an=array[1..m,1..n,1..k]of integer;
var
a:an;
x,y,z,p:integer;

function s(a:an; var mm,nn,kk:integer):integer;  {Вот ТУТ не нравится 8_20.pas(11,10) Warning: Function result does not seem to be set}

begin
writeln('m=',mm+1);
end;

begin
p:=0;
for x:=1 to m do
    for y:=1  to n do
        for z:=1 to k do begin
            p:=p+1;
            a[x,y,z]:=p+1;
            end;        
            for x:=1 to m do begin
    for y:=1  to n do begin
        for z:=1 to k do
        write(a[x,y,z]:3);
    writeln;
        end;
        writeln;
        end;
        s(a,m,n,k);{Вот ТУТ не нравится 8_20.pas(34,3) Error: Wrong number of parameters specified for call to "s"}
end.

_

[Kadir]

Function doesn't bring anything back. Use the procedure.

Function:

function имя функции (формальные параметры):тип результата;  
   раздел описаний функции  
begin  
  исполняемая часть функции
имя функции := возвращаемое значение;

end;

Purpose:

variable := name of function
(formal parameters);