[flips]

Что нужно дописать для сортировки по алфавиту сравнивая не только первые символы, а и по остальным?
Вот код сортировки методом вставки:

Код:

procedure SortInsertByAlphabet(var A:TArrStr;cnt:integer);
var i,j:integer;s:string;
begin
 for i:=2 to cnt do
  begin
   if a[i]<a[i-1] then
    begin
     s:=a[i];
     j:=i;
     repeat
      a[j]:=a[j-1];
      j:=j-1;
     until (j=1) or (a[j-1]<=s);
     a[j]:=s;
    end;
  end;
end;

В этой строке выдает ошибку о несовместимости типов булеан и строка:

Код:

until (j=1) or (a[j-1]<=s);

Что нужно дописать для полной сортировки по алфавиту?