如何在帕斯卡中按第一个字符对字符串进行排序？

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.

希望它有帮助；）