Pascal/Turbo Pascal - actualizar archivo

type

    tanual=array [1..12] of real; // son los meses 

    rmaster= record

     legajo:integer;

     categoria:integer;

     nomyape:string[40];

     sdobruto:tanual;

tmaster=file of rmaster;

procedure aumentosueldo(tanto : integer; mes : integer);

   var

       cont : integer;

        aumento : real;

        f :  file of rmaster;

        emple : rmaster;

         arch : longint;

   begin

           assign(f,'nombre archivo y extension);

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

    if ioresult <> 0 then

    begin

            writeln('Error el archivo no se encontro');

     end

  else

          begin

               arch := 0;

      repeat

                 seek(f,arch);

                  read(f,emple);

                 emple.sdobruto[mes] := emple.sdobruto[mes] + (emple.sdobruto[mes] * tanto / 100);

                  write(f,emple);

                 arch := arch + 1;

      until arch > filesize(f) - 1;

       close(f);

          end;

    end;