新手求解：对给定的10个国家名，按其字母的顺序输出。最好说一下每一步的意思。谢谢各位！！

直接排序

program ex(input,output);
var a:array [1..10] of string;i,j:integer;s:string;
begin
for i:=1 to 10 do readln(a[i]);
for i:=1 to 9 do
for j:=i+1 to 10 do
if downcase(a[i])>downcase(a[j]) then
begin
s:=a[i];
a[j]:=a[i];
a[j]:=s;
end;//一共就10个，最简单的选排
for i:=1 to 10 do writeln(a[i]);
readln();
end.//如果不行，问我……话说这道题貌似之前有人问过了吧