Pascal/Turbo Pascal - Problemas al guardar y leer registros de un archivo

program untitled; uses crt;

type

tRregistro=record

  ayn: string[40];

  edad: integer;

  anio : 1900..2080;

  mes:1..12;

  dia: 1..31;

  calificacion_parque: integer;

  comodidades: integer;

  juegos: integer;

  carteles: integer;

  cambios: integer;

  sugerencia: string;

  expect: integer;

end;

VAR

reg:tRregistro;

arch: file of tRregistro;

edad,anio,dia,mes,r,c,op,muy_malo,excelente,incorrecto,falta,mejorar,banios,segu,acc: integer;

personas, muy_malovot, excelentevot, reformavot, cambios_banios, cambios_acceso, cambios_seguridad, cambios_limpieza: integer;

ayn: char;

procedure CARGA (reg: tRregistro);

begin

rewrite(arch);

with reg do

  begin

  repeat

  writeln('--REGISTRO-',Filesize (arch),'-');

  write('Nombre: ');read(ayn);ayn:= ayn;

  write('Edad: ');read(edad);edad := edad;

  write('Anio actual: ');read(anio); anio:= anio;

  write('mes actual (1 al 12) : ');read(mes);mes:= mes;

  write('dia: ');read(dia);dia:= dia;

  writeln('');

  writeln('Que calificacion le pondrias al parque?');

  writeln('');

  writeln('1.Muy Malo');

  writeln('2.Malo');

  writeln('3.Bueno');

  writeln('4.Muy bueno');

  writeln('5.Excelente');

  read(calificacion_parque);calificacion_parque:=calificacion_parque;

  case (calificacion_parque) of

  1: muy_malo:= muy_malo+1;

  5: excelente:=excelente +1;

  end;

  writeln('');

  writeln('Como calificaria las nuevas comodidades del parque?');

  writeln('');

  writeln('1.aceptable');

  writeln('2.bueno');

  writeln('3.muy bueno');

  writeln('4.excelente');

  read(comodidades);comodidades:=comodidades;

  writeln('');

  writeln('Que puntaje le daria a la calidad de los juegos para ninios');

  writeln('');

  writeln('1.aceptable');

  writeln('2.bueno');

  writeln('3.muy bueno');

  writeln('4.excelente');

  read(juegos);juegos:=juegos;

  writeln('');

  writeln('En cuanto las seniales del parque');

  writeln('');

  writeln('1.son comprensibles');

  writeln('2.no tienen info correcta');

  writeln('3.faltan los mas importantes segun mi punto de vista');

  read(carteles);carteles:= carteles;

  case (carteles) of

  2:incorrecto:=incorrecto+1;

  3:falta:=falta+1;

  end;

  writeln('');

  writeln('Otros cambios que considera necesarios, indique tipo dentro de los sugeridos');

  writeln('');

  writeln('1.mejoras en la limpieza');

  writeln('2.cantidad de sanitarios');

  writeln('3.accesibilidad');

  writeln('4.seguridad');

  read(cambios);cambios:= cambios;

  case(cambios)of

  1:mejorar:=mejorar+1;

  2:banios:=banios+1;

  3:acc:=acc+1;

  4:segu:=segu+1;

  end;

  writeln('');

  writeln('Sugiere algun cambio?');

  writeln('1. SI');

  writeln('2. NO');

  readln(c);

  if (c=1) then

  begin

  writeln('');

  writeln('A continuacion escriba una sugerencia:');

  readln(sugerencia);sugerencia:= sugerencia;

  writeln('                              ');

  writeln('                              ');

  writeln('| GRACIAS POR SU SUGERENCIA! |');

  end;

  writeln('                              ');

  writeln('                              ');

  writeln('Expectativa de cumplimiento de las sugerencias por parte del Municipio');

  writeln('1.Confio en que se realizaran');

  writeln('2.No tengo tanta confianza');

  writeln('3-No les interesa mi opinion');

  read(expect);expect:= expect;

  personas:=personas +1;

  writeln('desea seguir registrando?');

  writeln('1. SI');

  writeln('2. NO');

  read(r);write(arch,reg);

  if (r=2) then

  begin

   writeln('');

   writeln('SI DESEA VER LOS REGISTROS CARGADOS RECIENTEMENTE');

   writeln('REINICIE EL PROGRAMA Y PRESIONE  2 ');

   writeln('');

   writeln('');

   writeln('ADIOS');

   writeln('');

   delay(1000);

  end;

  until r=2;

end;

end;

procedure STATS(reg: tRregistro);

begin

muy_malovot:= (muy_malo DIV personas)*100;

excelentevot:= (excelente DIV personas)*100;

writeln('Calificaron "muy malo" al parque el: ',muy_malovot,'%');

writeln('Calificaron "excelente" al parque el: ',excelentevot,'%');

reformavot:= ((incorrecto + falta) DIV personas)*100;

writeln(reformavot,'% de personas creen que existe un error en las señales del parque');

cambios_banios:=( banios DIV personas)*100;

cambios_limpieza:= (mejorar DIV personas)*100;

cambios_acceso:= (acc DIV personas)*100;

cambios_seguridad:=(segu DIV personas)*100;

writeln('El ',cambios_banios,'% creen que habria que mejorar los banios');

writeln('El ',cambios_limpieza,'% cree que hay que hacer ajustes en la limpieza');

writeln('El ',cambios_acceso, '% cree que el parque es de dificil acceso');

writeln('El ',cambios_seguridad, '% cree que el parque es inseguro');

writeln('El dia de hoy votaron: ',personas);

end;

procedure LEER (reg: tRregistro);

begin

  Reset(arch);

  while not EOF(arch) do

  begin

  writeln('');

  writeln(' Nombre: ',reg.ayn,'');writeln('');

  writeln(' Edad: ',reg.edad,'');writeln('');

  writeln(' Fecha: ', reg.anio,'/',reg.mes, '/', reg.dia,'');writeln('');

  writeln(' Calificacion del parque: ',reg.calificacion_parque);writeln('');

  writeln(' Calificacion sobre comodidades: ',reg.comodidades);writeln('');

  writeln(' Calificacion de los juegos ',reg.comodidades);writeln('');

  writeln(' Calificacion de las seniales: ',reg.carteles);writeln('');

  writeln(' Calificacion sobre cambios: ',reg.cambios);writeln('');

  writeln(' Sugerencia: ',reg.sugerencia);writeln('');

  writeln(' Expectativas de cumplimiento: ',reg.expect);writeln('');

  writeln('');

  writeln('');

  writeln('--PRESIONE ENTER PARA VER EL SIGUIENTE REGISTRO--');writeln('');writeln('');

  readln();

  read(arch, reg);

  end;

  if EOF (arch)then

  begin

  writeln('');

  writeln('No existen mas registros, reinicie el programa e ingrese uno nuevo');

  writeln('');

  readln();

  halt(2);

  end;

end;

BEGIN

 Assign(arch,'PARQUE.dat');

 {$I-}

  Reset(arch);

 {$I+}

  If(IoResult<>0) Then

    Rewrite(arch);

    Repeat

     op:=0;

	 personas:=0;

	 writeln('                       ');

	 writeln('                       ');

	 writeln('   Elija una opcion');

	 writeln(' _____________________');

	 writeln('|1. Registrar persona  |');

	 writeln('|                      |');

	 writeln('|2. Ver registros      |');

	 writeln('|                      |');

	 writeln('|3. Datos estadisticos |');

	 writeln('|                      |');

	 writeln('|4. Salir              |');

	 writeln('------------------------');

	 Readln(op);

	 case (op) of

	 1: CARGA(reg);

	 2: LEER(reg);

	 3: STATS(reg);

	 end;

	until (op=4);

  close(arch);

END.