Como criar um laberinto no pascalzim

No pascalzim em ingles

/ -------------------------------------------------------------
// como criar um game de labirinto :
// - Desenvolvedor do Pzim
// -------------------------------------------------------------
Program Pzim ;

var maze: array[1..25,1..80] of char; i, j: integer ; xDestino, yDestino: integer ; x,y: integer; flag:boolean;

//----------------------------------------------------------------
// Funcao usada para saber se a posicao está dentro do labirinto
//----------------------------------------------------------------
Function isDentroLabirinto( i, j: integer ): boolean ;
Begin
if (i = 25) or (j = 80) then isDentroLabirinto := false else isDentroLabirinto := true ;
End;

//--------------------------------------------------------------------
// Funcao usada para saber se a posicao denota uma borda do labirinto
//--------------------------------------------------------------------
Function isBorda( i, j: integer ): boolean ;
Begin
if (i = 25) or (j = 80) then isBorda := true else isBorda := false ;
End;

//--------------------------------------------------------------------
// Funcao usada para saber o número de parede ao redor de uma posição
//--------------------------------------------------------------------
Function numParedes( i, j: integer ): integer ; var x: integer;
Begin
if not isDentroLabirinto(i,j) then numParedes := 0 else Begin x:= 4; if not isDentroLabirinto(i+1,j) or (maze[i+1,j] 'P' ) then x:= x-1; if not isDentroLabirinto(i-1,j) or (maze[i-1,j] 'P' ) then x:= x-1; if not isDentroLabirinto(i,j-1) or (maze[i,j-1] 'P' ) then x:= x-1; if not isDentroLabirinto(i,j+1) or (maze[i,j+1] 'P' ) then x:= x-1; numParedes := x; End;
End;

//--------------------------------------------------------------------
// Procedimento que monta o labirinto, a