Найти все палиндромы – слова, которые читаются слева направо так же, как и справа налево

var a,b:string;
    i:Byte;
  begin
    write('Slovo: ');
    readln(a);
    b:='';
    For i:=1 to Length(a) do
    If a[i] = ' ',  then Delete(A,i,1);
    for i:=1 to Length(a) do b:=a[i]+b;
    if a=b then write('Yes: ', a)
           else write('No');
    readln;
End.

var
  a, b: string[255];
  i: Byte;
 
begin
  {write('Slovo: ');
  readln(a);}
  a := 'а роза упала на лапу азора';
  b := '';
  for i := 1 to Length(a) do
    if a[i] = ' ' then 
      Delete(A, i, 1);
  for i := 1 to Length(a) do 
    b := a[i] + b;
  writeln(a);   
  writeln(b);   
  if a = b then 
    write('Yes: ', a)
  else 
    write('No', b);
  
end.

const rz=[' ',','];
var s,s1:string;
    i,j,k,q:integer;
begin
writeln('Введите строку из слов разделенных пробелами и запятыми, а том числе палиндрмы');
readln(s);
s:=' '+s+' '; //добавим пробелы в начало и в конец для удобства
i:=1;
q:=0;
writeln('Слова палиндромы');
while i<length(s) do//идем по строке
if not(s[i]in rz)and(s[i-1]in rz) then //если не разделитель а перд ним разделитедь, новое слово
 begin
  s1:='';
  j:=i;
  while(j<=length(s))and not(s[j] in rz) do //составим его
   begin
    s1:=s1+s[j];
    j:=j+1;
   end;
  j:=1;
 //проверим совпадение букв симметрично середины
  while(j<=length(s1)div 2)and(s1[j]=s1[length(s1)-j+1]) do inc(j);
  if j>length(s1)div 2 then
   begin
    q:=1; //если все совпали, считаем
    writeln(s1);//выводим
   end;
  i:=i+length(s1);//перешагшем через слово
 end
else i:=i+1; //пропускаем пробелы
if q=0 then write('Палиндромов в строке нет');
end.