Напишите программу, которая считывает с клавиатуры строку S и определяет, встречаются ли в строке S слова палиндромы.

Var s,t:string; n,i:integer;beginwrite(\'Введите строку: \');readln(t);n:=1;t:=t+\' \';for i:=2 to length(t) do  if ((t[i]=\' \') or (i=length(t)))  and (i-n>1) then    begin    s:=Copy(t,n,i-n);    if s=ReverseString(s) then      begin      writeln(\'Да, палиндромы есть\');      halt      end        else n:=i+1    end;writeln(\'Палиндромов нет\')    end.