Напечатать в результирующий файл слова, начинающиеся и заканчивающиеся одной и той же буквы - 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.

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

textual
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.

15   голосов, оценка 4.467 из 5


СОХРАНИТЬ ССЫЛКУ