【跪求高手】字符串字符的比较

a[3]就是I嘛 a[4]就是P嘛 所以应该是a[4]>a[3]

为什么- -
ascll码吗

那这到底该怎么解
var
a: string;
n: integer;
procedure
getnext(var str: string);
var
l, i, j, k: integer;
temp: char;
begin
l := length(str);
k := l - 1;
while (k>=1) and (str[k]>str[k+1]) do
dec(k);
i := k + 1;
while (i<=l) and (str[i]>str[k]) do
inc(i);
temp := str[k];
str[k] := str[i-1];
str[i-1] := temp;
for i := l downto k + 1 do
for j := k + 1 to i - 1 do
if str[j] > str[j+1] then
begin
temp := str[j];
str[j] := str[j+1];
str[j+1] := temp;
end;
end;
begin
read(a);
read(n);
while n > 0 do
begin
getnext(a);
dec(n);
end;
write(a);
end.
输入：NOIP 3

做了很久都是输出 NOIP ..不知道怎么做

ABCDEFGHIJKLMNOPQRSTUVWXYZ
I<N<O<P
NOIP可简化成2，3，1，4
getnext是从最后往前找，是递减就继续找，找到出现递增就停止，最后k等于极大值左边的那个。
然后i从极大值往右边找，直到值小于等于str[k]。
然后交换str[i]和str[k]，
然后对k+1到倒数第二个进行冒泡排序,排成增序。
进行3次。
开始时 2314
进行一次 2341->2341
第二次 2143-2134
第三次 2143->2143
2143=NIPO
刚算的，不知道对不对

囧，错了……

原来是交换str[i-1]和str[k]，不是交换i和k……看错题……囧
还有如果找不到比str[k]小的str[i],str[k]会与最后一个交换
再来…
开始时 2314
进行一次 2341->2341
第二次 2431->2413
第三次 2431->2431
2431=NPOI

while (k>=1) and (str[k]>str[k+1]) do
dec(k);
第一次getnext时。。k这里是l-1=4-1=3吧。
str[k]="I" str[k+1]="P"
怎么算都是false啊这个

目测楼主是阿森纳球迷，我是来看签名的

所以就直接停咯，k=3，然后i加爆了加成5
然后第三个和第四个换咧