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

[mimit]

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

var s:string;
    i,a,b:integer;
begin
  writeln('Введите предложение');
  readln(s);
  for i :=1 to length(s) do
  begin
    if ((s[i-1]=' ') or (i=1)) and (a<>0)
      then
        a:=i
      else
        if (s[i+1]=' ') or (i=length(s))
          then
            b:=i;
    if s[a]=s[b]
      then
        begin
          writeln(copy(s,a,b-a));
          a:=0;
          b:=0;
        end;
  end;
  readln;
end.

помогите найти ошибку

[MihalNik]

Поменял бы местами:
(s[i-1]=' ') or (i=1)
А чему изначально равно а?

[mimit]

Сообщение от MihalNik

Поменял бы местами:
(s[i-1]=' ') or (i=1)
А чему изначально равно а?

Не понял что поменять? a не чему из начально

[Sciv]

a не чему из начально

Тогда чего Вы хотите от переменной, которая равна черти-чему?

[mimit]

Сообщение от Sciv

Тогда чего Вы хотите от переменной, которая равна черти-чему?

больше нет вариантов решения у меня

[mimit]

Помогите перерешить задачу.

var s1,s:string; i:integer;
begin
    writeln('Введите предложение');
  readln(s);
  s1:='';
  i:=1;
  s:=s+'.';
  for i:=1 to length(s) do
  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];
  readln;
end.

Вот написал заново задачку
Или может лучше так

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.