宇宙总统

题目：

题目描述

地球历公元6036年，全宇宙准备竞选一个最贤能的人当总统，共有n个非凡拔尖的人竟选总统，现在票数已经统计完毕，请你算出谁能够当上总统。

输入输出格式

输入格式：
president.in

第一行为一个整数n,代表竞选总统的人数。

接下来有n行，分别为第一个候选人到第n个候选人的票数。

输出格式：
president.out

共两行，第一行是一个整数m，为当上总统的人的号数。

第二行是当上总统的人的选票。

思路：这题用不着排序，统计一下就行。

代码：

var st1,st:string;
    n,l,l1,i,num:longint;
begin
  read(n);
  for i:=1 to n+1 do
  begin
    read(st);
    l:=length(st);
    if (l>l1)or(l=l1)and(st>st1) then
    begin
      st1:=st;
      l1:=l;
      num:=i;
    end;
    readln;
  end;
  writeln(num-1);
  writeln(st1);
end.