Projeto programa (Em pascal) para estacionamento

//Segue o código...

program PROJETO_DO_ESTACIONAMENTO;

//Luiz Gusmão; Helio Ely; Matheus Nascimento; Jaires, Rafaela; Anderson.

uses crt, dos;

Type Clientes = Record

PlacaLetra: String;

PlacaNumero: String;

Dia1 ,Dia2:WORD;

Mes1, Mes2: WORD;

ANO1, Ano2: Word;

INUTIL1, INUTIL2:Word;

NomeCliente: String;

Senha: Integer;

CPF: String;

Hora1, Minuto1, Segundo1, Dec_Segundo1:Word;

Hora2, Minuto2, Segundo2, Dec_Segundo2:WORD;

End;

Type Conveniados = Record

PlacaLetra: Array [1..3] of String;

PlacaNumero: Array [1..3] of String;

Con_Dia1, Con_Dia2:WORD;

Con_Mes1, Con_Mes2: WORD;

Con_ANO1, Con_Ano2: Word;

Con_INUTIL1, Con_INUTIL2:Word;

NomeConveniado: String;

Senha: Integer;

CNPJ: String;

Con_Hora1, Con_Minuto1, Con_Segundo1, Con_Dec_Segundo1:Word;

Con_Hora2, Con_Minuto2, Con_Segundo2, Con_Dec_Segundo2:WORD;

End;

VAR

//Variaveis PARA CLIENTES

ClienteTemporarioCPF: String;

ClienteTemporarioSenha: Integer;

ClienteTemporarioNome: String;

PosicaoCliente: Integer;

Tentativassenhacliente: Integer;

CPFtemporario: String;

TentativasCPF: Integer;

ClienteTemporarioPlacaLetra: String;

ClienteTemporarioPlacaNumero: String;

ContadorClientesRecord: Integer;

ClientesA: Array [1..99999] of Clientes;

CadastroCliente: Integer;

//-----------------------

//VARIAVEIS PARA CONVENIADOS

PosicaoConveniado: Integer;

CNPJTemporario: String;

TentativasCNPJ: Integer;

Tentativassenhaconveniado: Integer;

ConveniadoTemporarioCNPJ: String;

ConveniadoTemporarioSenha: Integer;

ConveniadoTemporarioPlacaLetra: String;

ConveniadoTemporarioPlacaNumero: String;

ConveniadoTemporarioNome: String;

ConveniadosA: Array [1..99999] of Conveniados;

ContadorConveniadosRecord: Integer;

ConveniadoTemporarioplacaletra2: String;

ConveniadoTemporarioplacaletra3: String;

ConveniadoTemporarioplacaNumero2: String;

ConveniadoTemporarioplacaNumero3: String;

CadastroConveniado: Integer;

//--------------------------

//VARIAVEIS ALEATORIAS

Loopinfinito: Integer;

Senhatemporaria: Integer;

Opcao1menu:Integer;

opcao12menu: Integer;

Opcao22menu: Integer;

Opcaoadmin: Integer;

Limiteplacas: Integer;

Contadorplacas: Integer;

Verificarcaracteres: Integer;

Cores:Integer;

//--------------------

//VARIAVEIS PARA ADMINISTRADOR

Tentativasadmin: Integer;

Adminsenha: Integer;

SenhatemporariaAdmin: Integer;

//-------------------------

//DIFERENÇA DE TEMPO E DATA

DiferencadetempoHORA:Integer;

DiferencadetempoMINUTO:Integer;

DiferencadetempoSEGUNDO: Integer;

DATAJUNTAEntrada:Integer;

DATAJUNTASaida:Integer;

Diferencadedata:Integer;

//VALORES

Valortotaldevido:Real;

Valordevido:Real;

Valorhora: Real;

Valorminuto: Real;

Valordiaria: REal;

ValorTotalarrecadado:REAL;

Opcaovalor: Integer;

//VARIAVEIS PARA RELATORIO

PrimeiraAtualizacao:Integer;

DataUltimaAtualizacao: Integer;

ContadorEntradaCarros: Integer;

ContadorSaidaCarros:Integer;

//RELATORIO MENSAL

ContadorCarrosJaneiro:Integer;

ContadorCarrosFevereiro:Integer;