Juego del ahorcado en pascal

PROGRAM JuegoDelAhorcado (input , output);

{ Este programa es un juego del Ahorcado. En principio esta }
{ preparado para palabras de 4 letras, pero cambiando el valor }
{ de laconstante MAXLONG, deberia funcionar para palabras de }
{ otras longitudes, pues todos los vectores, estrings y procesos }
{ iterativos estan definidos desde 1 hasta MAXLONG. }USES CRT;

CONST
MAXLONG = 4;
OPOR = (2 * MAXLONG) + Round(MAXLONG / 2);

VAR
i : Integer;
palAux , palabra : String [MAXLONG];
aciertos : Integer;
tiradas : Integer;esta , es : Array [1..MAXLONG] of Boolean;
vale : Boolean;
cond : Boolean;
victorias , derrotas , games : Integer;
auxquerer , querer : Char;
seguir : Boolean;{----------------------------------------------------------}

PROCEDURE Datos; { Este procedimiento lee las letras de }
{ la palabra que la persona introduce}
VAR { y se encarga de ocultarla para que }
ii : Integer; { el jugador no la vea. }

BEGIN {del procedure Datos}

FORii := 1 TO 5 DO { El FOR sirve para dejar unas lineas }
BEGIN {del FOR} { en blanco, por la presentacion. }
WriteLn;
END; {del FOR}Write('Palabra clave: '); { Se piden y leen las letras que }
Read(palAux); { formaran la palabra clave del juego. }
palabra := palAux;

ReadLn;

FORii := 1 TO 100 DO { Se oculta la palabra clave para que }
BEGIN {del FOR} { el jugador no la vea. }
WriteLn;
END; {del FOR}END; {del procedure Datos}

{**************************************}

PROCEDURE NormalizacionDeDatos;

BEGIN {del procedure NormalizacionDeDatos}

FOR i := 1 TO MAXLONG DO
BEGIN...