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

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.

program xxx;

    var z,d,k : integer;

begin

  z: =2; d: =7; k: =0;

  while (d> =z) do

    begin

      d: =d-z;

        k: =k+1

      end;

  writeln(d,'    ',k);

  readln

end.

если хранить без знака, то диапазон от 0 до 15(2^3+2^2+2^1+2^0)