Pascal/Turbo Pascal - Calcule el costo total de un vehículo al estar estacionado por una hora en el estacionamiento

{Mira esto}

 program estaciona;

  uses

     crt;

  const

     preci_minut = 0.10;

     veicu = 40;

  type

     autos = record

            matricula : string[20];

            inicio    : real;

            final     : real;

            prectot   : real;

          end;

  var

    estaci : array[1..veicu] of autos;

    datauto : autos;

    cont : integer;

    tecla, te : char;

   procedure aparca_auto;

   begin

       clrscr;

       writeln('*** Ficha Aparcamiento ***');

       writeln;

       write('  Matricula   : ');

       readln(datauto.matricula);

       write('  Hora Inicio : ');

       readln(datauto.inicio);

       writeln;

       writeln('<<<<< Datos Correctos [S/N] >>>>>');

       repeat

           te := upcase(readkey);

       until te in['S','N'];

       if te = 'S' then

       begin

       cont := cont + 1;

       if cont > veicu then

       cont := veicu;

       estaci[cont] := datauto;

       end;

   end;

   procedure desaparca_auto;

   var

      matri : string[20];

      nu : integer;

      est : boolean;

   begin

       clrscr;

       writeln('*** Cobro Estancia Auto ***');

       writeln;

       write('  Entre Matricula : ');

       readln(matri);

       nu := 1;

       est := false;

       repeat

           if estaci[nu].matricula = matri then

           begin

              est := true;

           end

         else

           nu := nu + 1;

       until (nu > cont) or (est = true);

       if est = true then

       begin

          clrscr;

          writeln('  Matricula   = ',estaci[nu].matricula);

          writeln('  Hora Inicio = ',estaci[nu].inicio:0:2);

          write('  Entre Hora Final : ');

          readln(estaci[nu].final);

          writeln;

    estaci[nu].prectot := ((estaci[nu].final - estaci[nu].inicio) * 60) *

                                 preci_minut;

          writeln('  Importe Avonar Es = ',estaci[nu].prectot:0:2,' $');

          estaci[nu].matricula := '0';

          writeln;

          writeln('<<< Pulse Una Tecla >>>');

       end

     else

        writeln('???? Error De Matricula Pulse Una Tecla ????');

        readkey;

   end;

   procedure total_autos_costo_total;

   var

     total : real;

     n, auto : integer;

   begin

      clrscr;

      for n := 1 to cont do

      total := total + estaci[n].prectot;

      auto := cont;

      writeln('**** Los Resultados Son ****');

      writeln;

      writeln('   Total De Autos = ',auto);

      writeln('   Ingreso Total  = ',total:0:2);

      writeln;

      writeln('<<<< Pulse Una Tecla >>>>');

      readkey;

   end;

   procedure menu;

   var

    opc, teb : char;

    sal : boolean;

  begin

      sal := false;

    repeat

       clrscr;

       writeln('***** Menu Principal *****');

       writeln;

       writeln('  1 = Entradas Aparcamiento');

       writeln('  2 = Salidas Aparcamiento');

       writeln('  3 = Resultado Total');

       writeln('  4 = Salir');

       writeln;

       writeln('<<<<<< Elija Opcion >>>>>>');

       repeat

           teb := readkey;

       until teb in['1','2','3','4'];

       clrscr;

     case teb of

  '1' : aparca_auto;

  '2' : desaparca_auto;

  '3' : total_autos_costo_total;

  '4' : sal := true;

    end;

    until sal = true;

   end;

   begin

      cont := 0;

      menu;

  end.