如何通過pascal中的第一個字符對字符串進行排序？

Question

我相信這個問題很清楚。
那麼，如何通過pascal中的第一個字符串來排序字符串？
因爲據我所知pascal沒有本地排序功能，應該有一種方法可以將字母轉換爲數字，然後對它們進行排序......無論如何，這只是猜測。
感謝提前答案;）

Answer 1

program test; 

var 
    nr:Integer; 
    mystrings:array [0..100] of string; 
    i:Integer; 
    tmp,tmp2,tmp3:String; 
begin 
    WriteLn('Please input number of strings'); 
    ReadLn(nr); //max 100 strings 
    for i:=0 to nr - 1 do 
    begin 
     str(i,tmp3); 
     Write('String['+tmp3+'] = ');ReadLn(mystrings[i]); 
    end; 

    // Now we sort the strings 

    i:=0; 
    repeat 
    tmp:=UpperCase(mystrings[i]); 
    tmp2:=UpperCase(mystrings[i+1]); 
    if tmp[1]>tmp2[1] then 
    begin 
     tmp:=mystrings[i]; 
     mystrings[i]:=mystrings[i+1]; 
     mystrings[i+1]:=tmp; 
     i:=-1; 
    end; 
    Inc(i); 
    until i=nr -1 ; 

    //Display strings sorted 
    for i:=0 to nr - 1 do 
    begin 
     WriteLn(mystrings[i]); 
    end; 
    Readln; 
end. 

希望它幫助;）