procedure CreeVectVirus (f : in out file_type; nb : in integer; V :out TV_Virus) is
-- {f (ouvert) contient des configurations initiales,
-- toutes les configurations se terminent par la position du virus rouge}
-- => {V a ete initialise par lecture dans f de la partie de numero nb}
    val:TR_piece;
    x:T_Col;
    y:T_Lig;
    compterRed : integer :=0;
begin

    reset(f,in_file);

    while compterRed < (nb-1)/2 loop
      read(f,val);
      if val.couleur = T_piece(rouge) then
        compterRed := compterRed +1;
      end if;
    end loop;

    while not end_of_file(f) loop
      read(f,val);
      x:=val.colonne;
      y:=val.ligne;
      V(y,x):=val.couleur;
    end loop;
end CreeVectVirus;