Волновой алгоритм

[zokwild]

У есть алгоритмический листинг нахождения кратчайшего пути в графе.Необходимо реализовать его в паскале или в другом любом.
MODULE Модуль;
IMPORT In, StdLog;
PROCEDURE ВолновойАлгоритм*;
VAR
Граф:ARRAY 10, 10 OF INTEGER;
Вершина:ARRAY 10 OF INTEGER;
k,j,n,s,Волна:INTEGER;
BEGIN
In.Open;
In.Int(n);
FOR k:=0 TO n-1 DO
FOR j:=0 TO n-1 DO
In.Int(Граф[k,j]);
END;
Вершина[k]:=0;
END;
s:=1; Вершина[0]:=1;Волна:=1;
WHILE s<n DO
FOR k:=0 TO n-1 DO
IF Вершина[k]=Волна THEN
FOR j:=k+1 TO n-1 DO
IF (Граф[k, j]=1) & (Вершина[j]=0) THEN
Вершина[j]:=Волна+1;
s:=s+1;
END;
END;
END;
END;
Волна:=Волна+1;
END;
FOR k:=0 TO n-1 DO
StdLog.Int(Вершина[k]);
END;
END ВолновойАлгоритм;
END Модуль.

[gaw4]

есть такая реализация волны