Chương trình như sau ( mình chạy máy rùi đấy:) 
program baitap; 
uses crt; 
var s1,s2:string; 
begin 
clrscr; 
write('Nhap s1: ');readln(s1); 
write('Nhap s2: ');readln(s2); 
if s1>s2 then writeln('Hai xau s1,s2 duoc in ra la: '),s1,s2) 
else writeln(s2,s1); 
readln 
end. 
‘Hong’ > ‘Han’ vì ‘o’ > ‘a’ 
‘thanh’ > ‘thao’ vì ‘n’ > ‘o’ 
Nếu so sánh hết chiều dài của chuỗi ngắn hơn mà không có cặp nào khác nhau thì chuỗi ngắn hơn sẽ nhỏ hơn, ví dụ:
‘an’ < ‘anh’ 
‘chu’ < ‘chung’ 
Hai chuỗi bằng nhau khi chúng cùng độ dài và các ký tự ở các vị trí tương ứng thì bằng nhau.