Pascal/Turbo Pascal - Ayuda Software de inventario para culminar "urgente"

{Mira esto}

  Factura = record

              cli: word;

              fecha   : string[15];

              RifCed  : string[15];

              Nombre  : string[35];

              ap      : string[35];

              tel     : string[15];

              Dir     : string;

              Codpro  : word;

              Descrip  : string[45];

              Canti : word;

              Precio: word;

              total: integer;

    end;

var

   archivo1     : file of persona;

   archivo2     : file of producto;

   archivo3     : file of factura;

   cliente      : persona;

   productos    : producto;

   facturas     : factura;

   opcion5      : char;

   a,b          : byte;

   dow          : word;

   car          : word;

   pro          : word;

   numfact      : word;

   control      : char;

   total,totalinea,cantiv,e,me,d,ds:word;

   x: integer;

   valoriva: integer;

 peocedure cargadatos(dd :Factura);

 var

   cont : longint;

  begin

     assign(archivo3,'factura.dat');

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

   if ioresult <> 0 then

   begin

     rewrite(archivo3);

     seek(archivo3,0);

     write(archivo3,dd);

     close(archivo3);

   end

 else

   begin

      seek(archivo3,filesize(archivo3));

      write(archivo3,dd);

      close(archivo3);

    end;

  end;