P1781——宇宙总统

题目描述

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

输入输出格式

输入格式：
president.in

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

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

输出格式：
president.out

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

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

输入输出样例

输入样例#1：
5
98765
12365
87954
1022356
985678
输出样例#1：
4
1022356
其实只是一个非常简单的字符串排序罢了

var n,i:longint;
    max:string;
    a:array[1..1000] of string;
begin
  readln(n);
  for i:=1 to n do
    begin
      readln(a[i]);
      if length(a[i])>length(max) then max:=a[i];
      if (a[i]>max) and (length(a[i])=length(max)) then max:=a[i];
    end;
  for i:=1 to n do
    if a[i]=max then
      begin
        writeln(i);
        writeln(max);
        halt;
      end;
end.