ТМР$=А$ : A$=BS : В$=ТМР$
END IF
или
{Упорядочение слов по "убыванию"}
if s1<s2 then
begin
tmp:=sl;
sl:=s2;
s2:=tmp;
end;
Для сравнения строк Си предлагает довольно много системных функций, но не забывайте, что их действие не всегда допустимо над русскими словами. Каждая из описываемых ниже функций принимает положительное значение, если ее первый операнд строго "больше" второго, нулевое значение при "равенстве" операндов, и отрицательное значение, если первый операнд оказался "меньше".
strcmp(s1,s2); //сравнивает строки s1 и s2
strcmpi(s1,s2); //сравнивает s1 и s2 с игнорированием
//разницы между большими и малыми буквами
stricmp(s1,s2); //эквивалентна функции strcmpi
strncmp(s1,s2,k); //сравнивает первые k символов в s1 и s2
strncmpi(s1,s2,k); //сравнивает первые k символов в s1 и s2
//с игнорированием разницы между большими
//и малыми буквами
strnicmp(s1,s2,k); //эквивалентна функции strncmpi