Нужна помощь с сортировкой

[mrDo]

Помогите пожалуйста. Никак не могу добиться того чтобы буква Ё была на своем месте.
unit Unit3;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm3 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form3: TForm3;

implementation
{$R *.dfm}

Const
Prob : set of char = [' '..' '];
Kir: set of char = ['А'..'Я'];
BukvLatM: set of char = ['a'..'z'];
e = 'Ё';



Function Prov(const s: string): byte;
Var
Nom: byte;
i,Len: word;
Begin
Nom:=0; len:= Length(S);
If Len=0 then Nom:=1
Else
Begin
i:=1;
while (i<=Len) and (Nom=0) do
begin
if Not ((S[i] in Prob) or (S[i] in Kir) or (S[i]='Ё') or (S[i] in BukvLatM)) then Nom:=2;
Inc(i);
end;
End;
Prov:=Nom;
End;

Procedure Sort(var s:string);
Var
i, z, len: Word;
flag: Boolean;
ch: char;
Begin
Z:=1; len:=length(s);
Repeat
flag:=true;
for i:=1 to len-z do
if (s[i] in Kir) and ((s[i+1] in Prob) or (s[i+1] in BukvLatM)) or
(s[i] in BukvLatM) and (s[i+1] in Prob) or
(s[i] in BukvLatM) and (s[i+1] in BukvLatM) and (s[i]>s[i+1]) or
(s[i] in Kir) and (s[i+1] in Kir) and (s[i]>s[i+1]) or (s[i]='Ё')
then
begin
ch:=s[i]; s[i]:=s[i+1]; s[i+1]:=ch; flag:= false;
end;
inc(z);
Until flag or (z=len);
End;



procedure TForm3.Button1Click(Sender: TObject);
var s: string; Nom: byte;
begin
s:=Edit1.Text;

Nom:= Prov(s);
Case Nom of
1: Label2.Caption := 'Пустая строка';
2: Label2.Caption := 'Некорректные символы';
else
begin
Sort(s);
Label2.Caption:='"'+s+'"';
end; {else}
End; {case}

end;

procedure TForm3.Button2Click(Sender: TObject);
begin
close
end;

end.

[BDA]

Зачем так сложно?

const
  p = ' АБВabc';
...
if pos(s[i], p) > pos(s[i + 1], p) then ...

[mrDo]

Спасибо! Все действительно работает.