процедура с масивом

[ms.yur]

вот элемент программы в паскале:

program gggg;
var p:array[1..10,1..10] of integer; i,j,f,y:integer;
procedyre re(p:array of integer; i,j,b,h:integer;)
begin
if p[i-1,j-1]=0 then h:=h else h:=h+1;
if p[i-1,j+1]=0 then h:=h else h:=h+1;
if p[i+1,j+1]=0 then h:=h else h:=h+1;
if p[i+1,j-1]=0 then h:=h else h:=h+1;
end;
...

что в нем не правильно и как написать обращение к этой процедуре

[Прик]

program gggg;
type
  tp = array[1..10,1..10] of integer;

var
  arrp: tp;
  y: integer;

procedure re(p:tp; i,j:integer; var h : integer);
begin
    {эти условия из области шуток (приколов)? Или такая задач?}
  if p[i-1,j-1] <> 0 then h:=h+1;
  if p[i-1,j+1] <> 0 then h:=h+1;
  if p[i+1,j+1] <> 0 then h:=h+1;
  if p[i+1,j-1] <> 0 then h:=h+1;
end;

begin
  y := 5;
  re(arrP, 2, 9, y);
end.

[ms.yur]

спасибо (задача такая)