Здравствуйте, подскажите пожалуйста с задачей: Дана строка текста. Найти номер позиции, где находится последняя точка. Далее отсортировать буквы по алфавиту, которые расположены после этой последней точки.что я тут не правильно делаю:
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
Edit3.Text:=Edit1.Text[j];
Edit1.Text[j]:=Edit1.Text[j+1];
Edit1.Text[j+1]:= Edit3.Text;
end;
end;