anchor.diff:  close(f); { Inchidem fisierul }
   
   { Initializam max cu cea mai mare valoare dintre primele doua
  -  (v[1] si v[2]) si pre_max cu cea mai mica                 }
  +  ('v[1]' si 'v[2]') si pre_max cu cea mai mica                 }
   if v[1] > v[2] then
       begin
       max := v[1];
  
positive.code: reset(f);
  rewrite(g);
  
  { Citim n-ul din fisier }
  readln(f, n);
  
  { Citim cele n numere }
  
negative.code:     f, g :text;
      n, i, max, pre_max: longint;
  
  { Obs. Metoda de rezolvare
      - citim elementele din fisier
      - aflam cel mai mare element si al doilea cel mai mare 
        ( cand am gasit un element maxim, cel precedent va deveni "al doilea
        cel mai mare" si il salvam si pe ala
      - afisam rezultatul
  }
  
  { Program Principal }
  begin
  assign(f, 'unu.in');
  