Найти в строке все слова- палиндромы(перевертыши) паскаль

[tdsotm]

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

const
  Letter: set of char = ['a'..'z', 'а'..'я'];{Множество букв}

var
  i, j: integer;b:boolean;
  S, wrd, z: string;

begin
  writeln('Введите строку');
  readln(s);
  i := 1; 
  while i <= Length(s) do  {Пока не закончилась строка}
  begin
    {Пропуск символов, не являющихся буквами}
    while (i <= Length(s)) and not (s[i] in Letter) do
      inc(i);
    {Выделение из строки очередного слова в Wrd}
    Wrd := '';
    while (i <= Length(s)) and (s[i] in Letter) do
    begin
      Wrd := Wrd + s[i];
      inc(i)
    end;
    writeln(wrd);
    {проверяем слово на палиндромность}
    while (j < (Length(wrd) div 2)) and b do 
    begin
      if wrd[j] <> s[Length(wrd) - j + 1] then b := false;
      inc(j);
    end;
    if b then writeln('палиндром') else writeln('net'); 
  end;
end.

[Stilet]

Отладку я так понимаю не делаешь?