Выборы вождя Pascal

Орки – одна из рас, населяющих мир Драэнор. Не отличаясь высоким интелектом, орки все же славятся своею силой и отвагой в бою. Ежегодно орки из разных кланов собираются в Долине Силы для того, чтобы избрать вождя всей Орды. В отличие от глупых людей, орки презирают выборы посредством голосования (да и, скажем прямо, все эти бюлетени, урны и избирательные участки чужды и непонятны орку, не державшему в руках ничего, кроме дубины и топора). Кандидаты в вожди сражаются друг с другом в честных поединках. В каждом поединке участвуют два претендента, один из которых выходит из него победителем, а другой оказывается поверженным. Проигравший в одном поединке орк выбывает из числа претендентов и не может участвовать в последующих поединках. Оставшийся в конце концов после всех боев кандидат и становит вождем Орды.

Входные данные

   В первой строке входного файла записано количество N претендентов на звание вождя в этом году (1 ≤ N ≤ 1000000), а во второй – N целых чисел в пределах от 1 до 10000, каждое из которых определяет силу соответствующего кандидата.

Выходные данные

   Выходной файл должен содержать одно число – количество претендентов, которые могут стать вождями.

Var
 f1:text;
 l,n,i,n2,n3:longint;
 Begin
 assign(f1,'input.txt'); reset(f1); read(f1,l); n2:=0;
 for i:=1 to l do
begin;
 read(f1,n);
 if n>n2 then begin n2:=n; n3:=1 end else
 if n=n2 then inc(n3);
end; close(f1);
 assign(f1,'output.txt'); rewrite(f1);
 writeln(f1,n3); close(f1)
 End.