排序——宇宙总统

洛谷 P1781 宇宙总统
题目描述
地球历公元6036年，全宇宙准备竞选一个最贤能的人当总统，共有n个非凡拔尖的人竟选总统，现在票数已经统计完毕，请你算出谁能够当上总统。
说明
票数可能会很大，可能会到100位数字。
n<=20
要注意输出时还要加入该候选人的序号（这条是我自己加的，洛谷上木有）

分析
这还用看吗？
直接字符串排序（条件为A长度

var
  s2:array[1..100]of ansistring;
  s1:array[1..100]of longint;
  s:ansistring;
  i,j,n,k:longint;
begin
  readln(n);
  for i:=1 to n do begin readln(s2[i]);s1[i]:=i; end;
  for i:=1 to n-1 do
   for j:=i+1 to n do
    if (length(s2[i])<length(s2[j]))or((length(s2[i])=length(s2[j]))and(s2[i]<s2[j])) then
     begin
       s:=s2[i];
       s2[i]:=s2[j];
       s2[j]:=s;
       k:=s1[i];
       s1[i]:=s1[j];
       s1[j]:=k;
     end;
  writeln(s1[1]);
  write(s2[1]);
end.