Pascal/Turbo Pascal - archivo edad

{A ver si esto te ayuda}

 program edades;

 uses

   crt;

 const

    archivo = 'edades.txt';

  var

    f : text;

    nombre : string[80];

    edad   : integer;

    tec, ch : char;

   procedure entradatos;

   begin

       clrscr;

       writeln('  Entrada De Datos ');

       writeln;

       write('  Nombre  : ');

       readln(nombre);

       write('  Edad    : ');

       readln(edad);

       assign(f,archivo);

   {$I-} reset(f); {$I+}

       if ioresult <> 0 then

       begin

          rewrite(f);

          write(f,nombre,#10 + #13);

          write(f,edad,#10 + #13);

          close(f);

       end

    else

      begin

         append(f);

         write(f,nombre, #10 + #13);

         write(f,edad, #10 + #13);

         close(f);

      end;

   end;

   begin

     repeat

      entradatos;

      writeln;

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

      tec := upcase(readkey);

    until tec = 'N';

      clrscr;

      Assign(f,archivo);

      Reset(f);

        while not Eof(f) do

        begin

           Read(f, Ch);

           Write(Ch);

        end;

        readkey;

   end.