Дана строка текста.. Известно, что в строке есть только две точки . Найти их порядковые номера. Далее упорядочить по возрастанию символы, расположенные между ними. паскаль

Предыдущий
вопрос Следующий
вопрос

program FindDotsAndSortChars;
var
text: string;
dot1, dot2, i, j, temp: integer;
begin
// Ввод строки
writeln('Введите строку текста:');
readln(text);

// Поиск точек
for i := 1 to length(text) do
begin
if text[i] = '.' then
begin
if dot1 = 0 then
dot1 := i
else
dot2 := i;
end;
end;

// Упорядочивание символов между точками
for i := dot1 + 1 to dot2 - 1 do
begin
for j := i + 1 to dot2 do
begin
if text[i] > text[j] then
begin
temp := ord(text[i]);
text[i] := text[j];
text[j] := char(temp);
end;
end;
end;

// Вывод результата
writeln('Порядковые номера точек: ', dot1, ', ', dot2);
writeln('Отсортированные символы между точками: ', copy(text, dot1 + 1, dot2 - dot1 - 1));
end.