anchor.diff:      if vec_cif[i] > max then
           max := vec_cif[i];
   
  -{ Afisam cele mai mari cifre care apar de max ori }
  +{ Afisam cele mai mari cifre care apar de 'max' ori }
   k := 0;
   
   for i := 9 downto 0 do
  
positive.code: 
  procedure descompunere(x :longint);
  { Parametri:
      - x => numarul care va fi descompus in cifrele componente 
   Obs.
      Procedura descompune numarul in cifrele sale componente
      apoi le numara in cev_cif
      }   
  var c :byte;
  begin
  
negative.code:     readln(v[i]);
      end;
  
  { Initializam 'vec_cif' cu '0' }
  for i := 0 to 9 do
      vec_cif[i] := 0 ;
  
  