Pascal/Turbo Pascal - necesito resolver ejercicio en turbo pascal es urgente

{A ver si esto te ayuda}

program ejercicios;

 uses

    crt;

  const

  milla = 1852;

  alumno = 30;

  altu1 = 1.20;

  altu2 = 1.51;

  altu3 = 1.61;

  var

    metros : real;

    altura : array[1..alumno] of real;

    al : integer;

    al1, al2, al3 : integer;

  procedure millas_a_metros;

  var

    millas : real;

   begin

      clrscr;

      writeln;

      write('  Entre Millas : ');

      readln(millas);

      writeln;

      writeln('  Las Millas Son : ',millas * milla:0:2,' Metros');

   end;

   procedure genera_alturas;

   var

      l, g, i : integer;

      h : real;

    begin

       g := 1;

       randomize;

     repeat

          h := 0;

          i := random(1) + 1;

          l := random(4) + 1;

          h := i;

          h := h + frac((l / 1.30));

          altura[g] := h;

          g := g + 1;

     until g > alumno;

    end;

   procedure resultmillas;

   begin

      clrscr;

      writeln('**** Conversion Millas Marinas En Metros ****');

      writeln;

      millas_a_metros;

      writeln;

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

      readkey;

   end;

   procedure resultadoalturas;

   begin

      clrscr;

      genera_alturas;

      writeln;

      al1 := 0;

      al2 := 0;

      al3 := 0;

      for al := 1 to alumno do

      begin

      if (altura[al] >= altu1) and (altura[al] < altu2) then

      al1 := al1 + 1;

      if (altura[al] >= altu2) and (altura[al] < altu3) then

      al2 := al2 + 1;

      if altura[al] >= altu3 then

      al3 := al3 + 1;

     end;

     writeln('**** Altura De Los Estudiantes ****');

     writeln;

     for al := 1 to alumno do

     write(' ',altura[al]:0:2);

     writeln;

     writeln;

     writeln('**** Estadistica de Altura Estudiantes ****');

     writeln;

     writeln('>>>> Estudiantes de ',altu1:0:2,' A ',altu2:0:2,' : ',al1);

     writeln('>>>> Estudiantes de ',altu2:0:2,' A ',altu3:0:2,' : ',al2);

     writeln('>>>> Estudiantes de ',altu3:0:2,' A ',2.5:0:2,' : ',al3);

     writeln;

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

     readkey;

   end;

  procedure menu;

  var

    tecla : char;

    sal : boolean;

  begin

     sal := false;

   repeat

       clrscr;

       writeln('******* Menu Jeneral ********');

       writeln;

       writeln('   1 = Conversion de Millas Marinas a Metros');

       writeln('   2 = Estadistica Altura De Estudiantes');

       writeln('   3 = Salir');

       writeln;

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

     repeat

       tecla := readkey;

     until tecla in['1','2','3'];

  case tecla of

 '1' : resultmillas;

 '2' : resultadoalturas;

 '3' : sal := true;

  end;

   until sal = true;

  end;

  begin

      menu;

  end.