Дана строка. найти в ней те слова, которые начинаются и оканчиваются одной и той же буквой

var s: string; start,finish,i: integer; begin  {read(s); }  s: ='i aha, go home i';   start: =1;   for i : = 2 to length(s)+1 do begin      if (s[i] in [' ',',','.']) or (i=length(s)) then begin          finish: =i-1;           if s[start]=s[finish] then writeln(copy(s,start, finish-start+1));           start: =i+1;       end;   end; end.

почитай тут 

100*1000000/8=12500000 байт в секунду