komponenta povezanosti grafova

moze li neko da pogleda ovu proceduru i vidi sto ne valja (ne mogu da je kompajliram) i prepravi.. molim vas sto pre...
procedure PovKomp;
procedure dfs(v,k:integer);
var
i:integer;
begin
pk[v]:=k;
for i:=1 to n do
if (m[v,i]) and (pk[i]=0)
then dfs(i,k);
end;
var
k,i:integer;
begin
fillchar(pk,sizeof(pk),0);
k:=0;
for i:=1 to n do
if pk[i]=0 then begin
inc(k);
dfs(i,k);
end;
end;

meni izlgeda ok ( sto se tice algoritma ).