Pascal/Turbo Pascal - Como abrir fichero para utilizar

var

       f : text;

       cade : string[78];

   begin

       assign(f,{a qui el nombre y extension del archivo asi como el camino donde este});

        reset(f);

      while not Eof(f) do   {leemos asta final de fichero}

     begin                           {para leer asta final de linea solo  Eoln }

          readln(f, cade);

         Writeln(cade);

     end;

   end.

Codifique un procedimiento (estadisticas_producto) que usando el fichero indice.txt calcule las unidades de determinado producto (cuyo nombre se pasa al procedimiento) que en un momento determinado están pedidas y pendientes de entrega. Recuerde que sólo están pedidas las cestas en las en la posición cero el campo en_cesta:=TRUE

procedure fichero_guardar_pedidos(var Nfichero: string);

          var

             fichero: text;

          begin

               assign(fichero, 'indice.txt');

               {$I-}

               reset(fichero);

               {$I+}

               if (ioResult<>0) then

                  begin

                       rewrite(fichero);

                       writeln(fichero, Nfichero);

                       close(fichero);

                  end

               else

                   begin

                        append(fichero);

                        writeln(fichero, Nfichero);

                        close(fichero);

                   end;

          end;

function ficheroacargar : string;

  var

      sal : boolean;

   begin

    sal := false;

  assign(fichero, 'indice.txt');

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

     if ioresult <> 0 then

     begin

           writeln('El fichero indicado no existe');

            exit;

      end

  else

         begin

          writeln('El archivo a buscar sera = tusdatos.dat ');

         repeat

          readln(fichero,dato);

           if dato = 'tusdatos.dat' then

           sal := true;

          writeln(dato);

         until (Eof(F) = true) or (sal = true);

         if sal = true then

          ficheroacargar := dato

  else

          ficheroacargar := ´´;

         end;

    end;

type

  cesta = record

               patatas : integer;

               tomates : integer;

               pan  : integer;

         end;

   var

      f : file of cesta;   {esto seria el fichero}

      conten : cesta;   {esto lo que contendria}