genera archivo ingresantes

program IngresantesGeneraArchivo;

uses crt;
const
    cantCarreras = 10;
    NOM_ARCHIVO = 'INGRESANTES.dat';
type
    RIngresante = record
        carrera : string[30];
        nombre : string[20];
        apell : string[20]; // apellido
        fecNac : string[10]; //ddmmaaaa
        loc : string[30]; //localidad
        dni : string[12]; //documento nacional de identidad
    end;
    FAlumnos =  file of RIngresante;
    TarrInteger = array[1..CantCarreras] of integer;
    TarrString = array[1..CantCarreras] of string;

function leerXteclado():RIngresante;
var  carrera:string[30];
var  nombre : string[20];
var apell : string[20];
var fecNac : string[10];
var dni : string[12];
var reg : RIngresante; loc : string[30];
begin
      clrscr;
      write('Carrera: ');readln(carrera);
      write('Nombre: ');readln(nombre);
      write('Apellido: ');readln(apell);
      write('Fecha de nacimiento: ');readln(fecNac);
      write('Localidad: ');readln(loc);
      write('DNI: ');readln(dni);
      reg.carrera := carrera;
      reg.nombre := nombre;
      reg.apell := apell;
      reg.fecNac := fecNac;
      reg.loc := loc;
      reg.dni := dni;
      leerXteclado := reg;
end;


//PRINCIPAL
var arch : FAlumnos;
var registro:RIngresante;

begin
       assign(arch,NOM_ARCHIVO);
       //creo el archivo
      {$I-}rewrite(arch){$I+};
      // leo por teclado los datos de los ingresantes
      registro:= leerXteclado();
      //la lectura de ingresantes finaliza  con el ingreso del campo carrera en fin
      while (registro.carrera <> 'fin') do begin
        //escribo en el archivo el registro ingresado
        write(arch,registro);
        registro:= leerXteclado();

      end;
      //cierro el archivo
      close(arch);
      //muestro por pantalla que el archivo ha sido creado
      writeln('El archivo se creo con exito');
      writeln('Presione una tecla para continuar')
      readkey;

end.