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

[mimit]

var s1,s:string;
    i:integer;
begin
  writeln('Введите предложение');
  readln(s);
  s1:='';
  i:=1;
  s:=s+'.';
  repeat
    if (s[i]=' ') or (s[i]=',') or (s[i]=';') or (s[i]='.') or (s[i]='!') or (s[i]='?')
      then
        begin
          if s1[1]=s1[length(s1)]
            then
              writeln('Слово начинающее и заканчивающее на одну и туже букву ',s1);
          s1:='';
        end
      else
        s1:=s1+s[i];
    i:=i+1
  until i>length(s);
  readln;
end.

У меня проблема не знаю почему ну когда вводишь например предложение:
вваыаы пвпаввап
Именно чтобы пробелом было больше чем 1 то программа выдает ошибку.
И нужно еще посчитать количество слов.