宇宙总统

题目：

题目描述

地球历公元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.