宇宙总统 洛谷p1781

题目背景

宇宙总统竞选

题目描述

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

输入输出格式

输入格式：

president.in

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

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

输出格式：

president.out

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

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

输入输出样例

输入样例#1：

5
98765
12365
87954
1022356
985678

本题字符窜比较而已，十分的水。

var
  i,n,s:longint;
  max,ss:string;


function aa(sss,max:string):boolean;
var
  i:longint;
begin
  aa:=false;
  if length(sss)>length(max)
     then exit(true)
     else if length(sss)<>length(max) then exit(false);
  for i:=1 to length(sss) do
    begin
      if sss[i]>max[i] then
        exit(true)
        else
          if sss[i]<>max[i] then exit(false);
    end;


end;


begin
  readln(n);
  max:='';
  for i:=1 to n do
    begin
      readln(ss);
      if aa(ss,max) then begin max:=ss; s:=i;  end;
    end;
  writeln(s);
  writeln(max);
end.

输出样例#1：

4
1022356

说明

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

n<=20