Найти номер позиции, где находится последняя точка и отсортировать буквы по алфавиту, расположенные после этой последней точки

[SnS]

Здравствуйте, подскажите пожалуйста с задачей: Дана строка текста. Найти номер позиции, где находится последняя точка. Далее отсортировать буквы по алфавиту, которые расположены после этой последней точки.что я тут не правильно делаю:

var x,x1:string;
k,i,j:integer;
begin
k:=length(Edit1.Text);
for i:=1 to k do
begin
if Edit1.Text[i]='.' then
Edit2.Text:=IntToStr(i);
end;
for i:=IntToStr(i) to k do
begin
for j:=IntToStr(i) to k-1 do
begin
if Edit1.Text[j]>Edit1.Text[j+1] then
begin
Edit2.Text:=Edit1.Text[j];
Edit1.Text[j]:=Edit1.Text[j+1];
Edit1.Text[j+1]:= Edit2.Text;
end;
end;

[Stilet]

var c:char;s:string;
...
s:=Edit1.Text;
i:=length(s); while (i>0)and(s[i]<>'.') do dec(i);
for q:=i to Length(s) do for w:=i to Length(s) do 
 if s[q]>s[w] then begin c:=s[q]; s[q]:=s[w]; s[w]:=c;end;
Edit1.Text:=s;

Так лучше?

[SnS]

спасибо большие))))

[Stilet]

Пожалуйста )