pascal数组问题

输入十个国家名，按字典字母顺序输出十个国家。（太简单了吧。。但我是初学者。。各位帮帮忙，谢谢啦）

program q160918768;

var
country : array [1 ..10] of string;
temp: string;
i, j: Integer;
begin
//输入10个国家
for i := 1 to 10 do
readln(country[i]);

//排序
for i := 1 to 9 do
for j := i + 1 to 10 do
if country[i] > country[j] then
begin
temp := country[i];
country[i] := country[j];
country[j] := temp;
end;

//输出
for i := 1 to 10 do
write(country[i] + ' ');

end.