задача про строки

[morgan97]

задача такова
дана строка. Найти в ней те слова которые начинается и оканчиваются одной и той же буквой т.е слово начинается например на к и заканчивается на к
2 часа бился кое что сделал посмотрите(извините что в архиве)

[Shift_sk]

var s:string;
   i ,j,h,g:integer;
begin
read(s);
s:=s+' ';
h:=1;
j:=1;
while j<=length(s) do begin
for i:=j to length(s) do
if s[i]=' ' then
begin
h:=j;
j:=i+1;
break;
end;
if s[h]=s[j-2] then begin for g:=h to j-2 do write(s[g]);
writeln;
end;
end;
end.

[morgan97]

а где же у меня ошибка была

[Shift_sk]

я твой код не смотрел...


но счас скачал и посмотрел написано примерно одинаково....только я еще сами слова вывожу...!