Pascal/Turbo Pascal - necesito modificar es registro a un archivo

{Míralo}

 program procesacurso;

  uses

     crt;

  const

      M = 5;

  type

     tipdatper = record

          nombre, ci, tlf, dir : string;

          end;

     tipdatac = record

          prof : string;

          aexp : integer;

         end;

       tipmod = record

            nombre : string;

             horas : integer;

              profe:record

                 datper : tipdatper;

                  datac : tipdatac;

                end;

             end;

        tipcurso = record

             nomb : string;

            costo : real;

            coord : record

           datper : tipdatper;

            datac : tipdatac;

             end;

           modulo : array[1..M] of tipmod;

         end;

        arcurso = file of tipcurso;

    var

         c : arcurso;

     curso : tipcurso;

         i : integer;

       opc : char;

procedure limpiar(var curso:tipcurso);

begin

curso.costo:=0;

curso.nomb:='';

curso.coord.datper.nombre:='';

curso.coord.datper.ci:='';

curso.coord.datper.tlf:='';

curso.coord.datper.dir:='';

curso.coord.datac.prof:='';

curso.coord.datac.aexp:=0;

for i:=1 to M do

begin

curso.modulo[i].nombre:='';

curso.modulo[i].horas:=0;

curso.modulo[i].profe.datper.nombre:='';

curso.modulo[i].profe.datper.ci:='';

curso.modulo[i].profe.datper.tlf:='';

curso.modulo[i].profe.datper.dir:='';

curso.modulo[i].profe.datac.prof:='';

curso.modulo[i].profe.datac.aexp:=0;

end;

end;

 procedure llenar(var cur : tipcurso);

 var

  contador : string;

  begin

    i := 0;

    assign (c,'C:\tp\bin\curso.dat');

    rewrite(c);

    seek(c,i);

    writeln('Ingrese Nombre del curso');

    readln(curso.nomb);

    contador := curso.nomb;

    writeln('ingrese el valor del curso');

    readln(curso.costo);

    writeln('Datos personales del Coordinador');

    writeln('Ingrese nombre ');

    readln(curso.coord.datper.nombre);

    writeln('ingrese Cedula');

    readln(curso.coord.datper.ci);

    writeln('ingrese numero de telefono');

    readln(curso.coord.datper.tlf);

    writeln('ingrese direccion');

    readln(curso.coord.datper.dir);

    writeln('datos academicos del coordinador');

    writeln('ingrese profesion');

    readln(curso.coord.datac.prof);

    writeln('ingrese anos de experiencia');

    readln(curso.coord.datac.aexp);

    for i := 1 to M do

    begin

       writeln('ingrese nombre del modulo #',i);

       readln(curso.modulo[i].nombre);

       writeln('ingrese la cantidad de horas del mudolo',i);

       readln(curso.modulo[i].horas);

       writeln('Datos del profesor del curso');

       writeln('ingrese nombre del profesor del modulo',i);

       readln(curso.modulo[i].profe.datper.nombre);

       writeln('ingrese cedula del profesor del modulo',i);

       readln(curso.modulo[i].profe.datper.ci);

       writeln('ingrese numero de telefono del profe del modulo',i);

       readln(curso.modulo[i].profe.datper.tlf);

       writeln('ingrese direccion del profesor del modulo',i);

       readln(curso.modulo[i].profe.datper.dir);

       writeln('datos academicos de cada profesor');

       writeln('ingrese profesion de profesor de modulo',i);

       readln(curso.modulo[i].profe.datac.prof);

       writeln('ingrese anos de experiencia');

       readln(curso.modulo[i].profe.datac.aexp);

      end;

      write(c,curso);

      close(c);

    end;

   procedure mostrar(curso : tipcurso);

   begin

      assign (c,'C:\tp\bin\curso.dat');

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

   if IOResult = 0 then

   begin

    seek(c,0);

    read(c,curso);

    clrscr;

    writeln('Nombre del Curso');

    writeln(curso.nomb);

    writeln('Costo del Curso');

    writeln(curso.costo);

    writeln('Datos del coordinador');

    writeln('Nombre: ',curso.coord.datper.nombre);

    writeln('Cedula: ',curso.coord.datper.ci);

    writeln('Telefono: ',curso.coord.datper.tlf);

    writeln('Direccion: ',curso.coord.datper.dir);

    writeln('Datos academicos del coordinador');

    writeln('Profesion: ',curso.coord.datac.prof);

    writeln('Anos de experiencia: ',curso.coord.datac.aexp);

    for i := 1 to M do

    begin

     writeln('Nombre de modulo ',i);

     writeln(curso.modulo[i].nombre);

     writeln('Horas del curso ',i);

     writeln( curso.modulo[i].horas);

     writeln('Datos personales del profesor',i);

     writeln('Nombre del profesor: ',curso.modulo[i].profe.datper.nombre);

     writeln('Cedula: ',curso.modulo[i].profe.datper.ci);

     writeln('Telefono: ',curso.modulo[i].profe.datper.tlf);

     writeln('Direccion: ',curso.modulo[i].profe.datper.dir);

     writeln('Datos academicos del profesor ',i);

     writeln('Profesion: ',curso.modulo[i].profe.datac.prof);

     writeln('Anos de experiencia: ',curso.modulo[i].profe.datac.aexp);

     end;

     close(c);

   end;

  end;

   procedure insertarcurso(var curso : tipcurso);

  begin

      assign (c,'C:\tp\bin\curso.dat');

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

   if ioresult <> 0 then

   begin

      writeln('  Error de archivo o falta pulse una tecla');

      readkey;

   end

 else

    begin

       seek(c,filesize(c));

       writeln('Ingrese Nombre del curso');

    readln(curso.nomb);

    writeln('ingrese el valor del curso');

    readln(curso.costo);

    writeln('Datos personales del Coordinador');

    writeln('Ingrese nombre ');

    readln(curso.coord.datper.nombre);

    writeln('ingrese Cedula');

    readln(curso.coord.datper.ci);

    writeln('ingrese numero de telefono');

    readln(curso.coord.datper.tlf);

    writeln('ingrese direccion');

    readln(curso.coord.datper.dir);

    writeln('datos academicos del coordinador');

    writeln('ingrese profesion');

    readln(curso.coord.datac.prof);

    writeln('ingrese anos de experiencia');

    readln(curso.coord.datac.aexp);

    for i := 1 to M do

    begin

       writeln('ingrese nombre del modulo #',i);

       readln(curso.modulo[i].nombre);

       writeln('ingrese la cantidad de horas del mudolo',i);

       readln(curso.modulo[i].horas);

       writeln('Datos del profesor del curso');

       writeln('ingrese nombre del profesor del modulo',i);

       readln(curso.modulo[i].profe.datper.nombre);

       writeln('ingrese cedula del profesor del modulo',i);

       readln(curso.modulo[i].profe.datper.ci);

       writeln('ingrese numero de telefono del profe del modulo',i);

       readln(curso.modulo[i].profe.datper.tlf);

       writeln('ingrese direccion del profesor del modulo',i);

       readln(curso.modulo[i].profe.datper.dir);

       writeln('datos academicos de cada profesor');

       writeln('ingrese profesion de profesor de modulo',i);

       readln(curso.modulo[i].profe.datac.prof);

       writeln('ingrese anos de experiencia');

       readln(curso.modulo[i].profe.datac.aexp);

      end;

      write(c,curso);

      close(c);

    end;

  end;

  procedure buscar_curso;

  var

     g : integer;

     ncurso : string;

     cont : longint;

     siesta : boolean;

  begin

     siesta := false;

     writeln('  Buscar Curso Por Su Nombre ');

     writeln;

     write('  Nombre Curso : ');

     readln(ncurso);

     for g := 1 to length(ncurso) do

     ncurso[g] := upcase(ncurso[g]);

     assign (c,'C:\tp\bin\curso.dat');

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

   if ioresult <> 0 then

   begin

      writeln('  Error de archivo o falta pulse una tecla');

      readkey;

   end

 else

    begin

       for cont := 0 to filesize(c) - 1 do

       begin

          seek(c,cont);

          read(c,curso);

          for g := 1 to length(curso.nomb) do

          curso.nomb[g] := upcase(curso.nomb[g]);

          if ncurso = curso.nomb then

          begin

             siesta := true;

             close(c);

             break;

          end;

       end;

    end;

       if siesta = false then

       begin

          writeln('  Curso No Encontrado Pulse Una Tecla');

          readkey;

       end

    else

       begin

         clrscr;

          writeln('Nombre del Curso');

    writeln(curso.nomb);

    writeln('Costo del Curso');

    writeln(curso.costo);

    writeln('Datos del coordinador');

    writeln('Nombre: ',curso.coord.datper.nombre);

    writeln('Cedula: ',curso.coord.datper.ci);

    writeln('Telefono: ',curso.coord.datper.tlf);

    writeln('Direccion: ',curso.coord.datper.dir);

    writeln('Datos academicos del coordinador');

    writeln('Profesion: ',curso.coord.datac.prof);

    writeln('Anos de experiencia: ',curso.coord.datac.aexp);

    for i := 1 to M do

    begin

     writeln('Nombre de modulo ',i);

     writeln(curso.modulo[i].nombre);

     writeln('Horas del curso ',i);

     writeln( curso.modulo[i].horas);

     writeln('Datos personales del profesor',i);

     writeln('Nombre del profesor: ',curso.modulo[i].profe.datper.nombre);

     writeln('Cedula: ',curso.modulo[i].profe.datper.ci);

     writeln('Telefono: ',curso.modulo[i].profe.datper.tlf);

     writeln('Direccion: ',curso.modulo[i].profe.datper.dir);

     writeln('Datos academicos del profesor ',i);

     writeln('Profesion: ',curso.modulo[i].profe.datac.prof);

     writeln('Anos de experiencia: ',curso.modulo[i].profe.datac.aexp);

     end;

    end;

  end;

  procedure mostrar_cuantos_cursos_coordina_un_profesor;

  var

    nombrecor : string;

    cont : longint;

    cordi, d : integer;

   begin

       clrscr;

       cordi := 0;

       writeln('   Entre Nombre Cordinador ');

       writeln;

       write('   Nombre : ');

       readln(nombrecor);

       for d := 1 to length(nombrecor) do

       nombrecor[d] := upcase(nombrecor[d]);

       assign (c,'C:\tp\bin\curso.dat');

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

   if ioresult <> 0 then

   begin

      writeln('  Error de archivo o falta pulse una tecla');

      readkey;

   end

 else

    begin

       for cont := 0 to filesize(c) - 1 do

       begin

          seek(c,cont);

          read(c,curso);

          for d := 1 to length(curso.coord.datper.nombre) do

          curso.coord.datper.nombre[d] := upcase(curso.coord.datper.nombre[d]);

          if nombrecor = curso.coord.datper.nombre then

          begin

             cordi := cordi + 1;

          end;

       end;

         close(c);

         writeln;

         writeln('  El Cordinador Tiene A su Cargo Cursos : ',cordi);

         writeln;

         writeln('  Pulse Una Tecla');

         readkey;

    end;

   end;

   begin

      clrscr;

{Incorpora esto en un menú y ejecutaras lo que sea}

      limpiar(curso);

      llenar(curso);

      mostrar(curso);

      insertarcurso(curso);

      buscar_curso;

      mostrar_cuantos_cursos_coordina_un_profesor;

      readkey;

   end.