Напечатать в результирующий файл слова, начинающиеся и заканчивающиеся одной и той же буквы - Turbo Pascal

Формулировка задачи:

Требуется написать программу, которая для каждой строки будет печатать в результирующий файл слова, начинающиеся и заканчивающиеся одной и той же буквой. Что не так? как надо доработать программу, что бы корректно работало. Ври пример: Если я введу "А А А", то выведет "А А",а если я введу "А А А ", то все правильно, то есть проблема в последнем пробеде, что бы он правильно считал нужно, его обязательно ставить. Как сделать так что бы не надо было ставить пробел в конце? вот мой код

program string_12;
var sl,s:string; i,k,dl:integer;
begin write('ГўГўГҐГ¤ГЁГІГҐ Г±ГІГ°Г®ГЄГі:');
readln(s);
i:=1;
repeat
if (s[i]=' ')
then begin if sl[1]=sl[length(sl)] then writeln(sl);
sl:='';
end
else sl:=sl+s[i];
i:=i+1
until i>length(s);
readln;
end.

Решение задачи: «Напечатать в результирующий файл слова, начинающиеся и заканчивающиеся одной и той же буквы»

Листинг программы

program string_12;
var sl,s:string; i,k,dl:integer;
begin write('введите строку:');
readln(s);
s:=s+' ';
i:=1;
repeat
if (s[i]=' ')
then begin if sl[1]=sl[length(sl)] then writeln(sl);
sl:='';
end
else sl:=sl+s[i];
i:=i+1
until i>length(s);
readln;
end.

Объяснение кода листинга программы

В программе объявлены три переменные: sl, s и i. Переменная sl типа string, переменная s также типа string, а переменная i - типа integer.
Строка вводится с помощью функции readln().
В строке, которую ввел пользователь, удаляются все пробелы с помощью функции s.replace( , ``).
Затем строка разбивается на символы, начиная с первого и до последнего.
В цикле repeat проверяется каждый символ в строке.
Если текущий символ является пробелом, то проверяется, совпадает ли первый и последний символы в строке sl. Если да, то этот символ sl выводится на экран с помощью функции writeln().
После этого sl сбрасывается до пустой строки.
Если текущий символ не является пробелом, то он добавляется к строке sl.
Индекс i увеличивается на единицу после каждой итерации цикла.
Цикл продолжается до тех пор, пока i не станет больше длины строки s.
По завершении программы выводится сообщение введите строку:.
Программа завершается с помощью функции readln().