pascal中有类似于strcmp的直接比较字符串大小的函数或过程吗

在PASCAL语言里面，字符串可以直接进行比较，无需函数，你看看下面的例子程序：

var s1,s2:string;
begin
write('s1=');readln(s1);
write('s2=');readln(s2);
if s1>s2 then writeln('s1>s2') else writeln('s1<=s2');
end.