Hotel en Pascal

program prac13;
CONST
PLANTAS=9;
HABITACIONES=7;
NOMBRE=15;
APELLIDO=35;
DIRECCION=35;
FINEDAD=100;
DatosDNI=10;
MaxPax=4;
TYPE
TPlantas=1..Plantas;THabitaciones=1..Habitaciones;
TNombre=string[NOMBRE];
TEdad=0..FINEDAD;
TDNI= string[DatosDNI];
TApellido=string[APELLIDO];
TDireccion=string[DIRECCION];
TPersonas=1..MaxPax;
TipoPersonas =RECORD
Nombre: TNombre;
Edad: TEdad;
DNI: TDNI;
Direccion: TDireccion;
Apellido: TApellido;
END;{TPersonas}
MatrizHotel= array [TPlantas,THabitaciones,TPersonas] OFTipoPersonas;
VAR
menu:char;
Hotel:MatrizHotel;

PROCEDURE ResetearHotel;
VAR i,e,o:integer;
BEGIN
FOR i:=1 TO PLANTAS DO BEGIN
FOR e:=1 TO HABITACIONES DO BEGIN
FOR o:=1 TOMaxPax Do BEGIN
Hotel[i,e,o].edad:=0;
Hotel[i,e,o].DNI:='0';
Hotel[i,e,o].Nombre:=' ';
Hotel[i,e,o].Apellido:=' ';
Hotel[i,e,o].Direccion:=' ';
END;
END;END;
END;
PROCEDURE NNoValido;
BEGIN
writeln();
writeln('Valor introducido no v',char(160),'lido');
writeln();
END;{NNoValido}

PROCEDURE PedirPlanta(VAR NPlanta:integer);BEGIN
REPEAT
Write('En que planta esta el cliente: ');
readln(NPlanta);
writeln();
IF NOT ((NPlanta>=1) AND (NPLanta=1) AND (NPLanta=1) AND (NHabitacion=1) AND (NHabitacion0)AND (edad0) AND (edad0 THEN
contador:=contador+1;
END;
ContarGente:=contador
END;

{***********************************************************************}
PROCEDUREMostrarHabitacionNombre(Hab,Pla:integer);
VAR
i:integer;
BEGIN
writeln('En la planta ',Pla,' y la habitacion ',Hab,'estan: ');
FOR i:=1 TO MaxPax DO BEGIN
writeln(i,')',Hotel[Pla,Hab,i].Nombre);
END;
END;
{***********************************************************************}
PROCEDURE DarAlta;
VAR
DAPlanta,DAHabitacion,DAPersonas,i:integer;
BEGIN...