Строки в Lazarus

[NAt]

Строки в Lazarus

Здравствуйте, подскажите пожалуйста с задачей: Дана строка текста. Найти номер позиции, где находится последняя точка. Далее отсортировать буквы по алфавиту, которые расположены после этой последней точки.что я тут не правильно делаю:
var x,x1:string;
k,i,j:integer;
begin
k:=length(Edit1.Text);
for i:=1 to k do
begin
if Edit1.Text='.' 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
Edit3.Text:=Edit1.Text[j];
Edit1.Text[j]:=Edit1.Text[j+1];
Edit1.Text[j+1]:= Edit3.Text;
end;
end;

 

[kreol]

Если честно, то программу наверняка можно оптимизировать. Сорри, но леньки...

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

     x1 := Edit1.Text;
     for l:=n to k do
     begin
          for j:=n to k do
          begin
               if x1[l] < x1[j] then
               begin
                    x := x1[l];
                    x1[l] := x1[j];
                    x1[j] := x;
               end;
          end;
     end;
     Edit1.text := x1;
end;