题目背景

宇宙总统竞选

题目描述

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

输入输出格式

输入格式：

president.in

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

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

输出格式：

president.out

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

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

输入输出样例

输入样例#1：

5

98765

12365

87954

1022356

985678

输出样例#1：

4

1022356

说明

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

n<=20

---

因为题目说票数有可能到100位，所以我们不能用整形来存放，只能用字符串。可是用字符串又该怎样排序呢？

其实很简单，也是选排，判断如果(length(a[i])

var   n,i,x,j:longint;      t:ansistring;      a:array[1..20]of ansistring;      b:array[1..20]of longint;begin  readln(n);  for i:=1 to n do begin readln(a[i]); b[i]:=i; end;  for i:=1 to n-1 do    for j:=i+1 to n do      if (length(a[i])
     
      
       b[j]) then        begin          x:=b[i]; b[i]:=b[j]; b[j]:=x;          t:=a[i]; a[i]:=a[j]; a[j]:=t;        end;  writeln(b[1]);  writeln(a[1]);end.