宇宙总统

题目背景

宇宙总统竞选

题目描述

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

输入输出格式

输入格式：

president.in

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

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

输出格式：

president.out

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

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

输入输出样例

输入样例#1：

5
98765
12365
87954
1022356
985678

输出样例#1：

4
1022356

说明

票数可能会很大，可能回到100位数字。

n<=20

var

 s,max:string;//由于票数会大很多，所以用字符串；

 n,j,i,ans:longint;

procedure win;//比大小

begin

 if length(s)>length(max) then begin//长度小说明数值小，所以直接出

                                ans:=i;

                                max:=s;

                               exit;

                             end;

if length(s)>length(max) then  begin//长度长说明数值大，所以直接出
                                                 ans:=i;
                                                 max:=s;

                                                 exit;
                                               end;

 if (ord(max[j])-48<ord(s[j])-48)

     and(length(s)=length(max)) then//在长度相等的情况下，相对的一位比较

  begin

   ans:=i;

   max:=s;

  end;

end;

begin

 readln(n);

 max:='';//清空最大，否则可能会打乱结果

 for i:=1 to n do

  begin

   readln(s);

   for j:=length(s) downto 1 do win;//从最后一位开始比较，调动win过程；

  end;

 writeln(ans);

 write(max);

end.