Pascal/Turbo Pascal - Ejercicios de Pascal

{A ver si esto ayuda }

 program edades;

  uses

     crt;

  const

      eda = 24;

      n = 5;

  type

     persona = record

             nombre : string[30];

             sexo   : string[10];

             edad   : integer;

             peso   : real;

             colorp : string[15];

             colorpi: string[20];

             coloroj: string[20];

             nacionalid : string[50];

             telefono : string[16];

         end;

    var

      arreglo : array[1..n] of persona;

      cont : integer;

      pers : persona;

      tew : char;

   procedure  entradas(var pe : persona);

   begin

      clrscr;

      writeln('  Entrada Datos Persona');

      writeln;

      write('Nombre       : ');

      readln(pe.nombre);

      write('Sexo         : ');

      readln(pe.sexo);

      write('Edad         : ');

      readln(pe.edad);

      write('Peso         : ');

      readln(pe.peso);

      write('color pelo   : ');

      readln(pe.colorp);

      write('color piel   : ');

      readln(pe.colorpi);

      write('color ojos   : ');

      readln(pe.coloroj);

      write('nacionalidad : ');

      readln(pe.nacionalid);

      write('telefono     : ');

      readln(pe.telefono);

      end;

  procedure presentamallores24(nn : integer);

  var

   h : integer;

  begin

     for h := 1 to nn do

     if arreglo[h].edad > 24 then

     begin

        writeln('  Datos De Mallores 24 A¤os');

        writeln;

        writeln('  ',arreglo[h].nombre);

        writeln('  ',arreglo[h].sexo);

        writeln('  ',arreglo[h].edad);

        writeln('  ',arreglo[h].peso:0:2);

        writeln('  ',arreglo[h].colorp);

        writeln('  ',arreglo[h].colorpi);

        writeln('  ',arreglo[h].coloroj);

        writeln('  ',arreglo[h].nacionalid);

        writeln('  ',arreglo[h].telefono);

        writeln;

        writeln('  Pulse Una Tecla');

        readkey;

        clrscr;

     end;

  end;

  begin

    cont := 1;

    repeat

     entradas(pers);

     arreglo[cont] := pers;

     cont := cont + 1;

     if cont > n then

     cont := n;

     writeln;

     writeln('  Desea Entrar Mas [S/N]');

     repeat

         tew := upcase(readkey);

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

     clrscr;

   until tew = 'N';

    presentamallores24(cont - 1);

  end.