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

  var
  s:string;
  i,j,l:integer;
  w:string;
  f:boolean;
begin
  readln(s);
  w:='';
  for i:=1 to length(s) do
    begin
      if (s[i]<>' ') then
        w:=w+s[i];
      if (s[i]=' ') or (i=length(s)) then
        begin
          f:=true;
          l:=length(w);
          for j:=1 to (l div 2) do
            if w[j]<>w[l-j+1] then
              f:=false;
          if f then
            writeln(w);
          w:='';
        end;
    end;
  readln;
end.

uses crt;
 var
  s:string;
  i,j,l,p:integer;
  w:string;
  f:boolean;
begin
clrscr;
writeln('Vvedite stroku:');
readln(s);
i:=1;
while i<=length(s) do
if (s[i]<>' ') then
  begin
   p:=i;j:=i;w:='';
   while (s[j]<>' ')and(j<=length(s)) do
    begin
     w:=w+s[j];
     j:=j+1;
    end;
    f:=true;
    l:=length(w);
    for j:=1 to (l div 2) do
    if w[j]<>w[l-j+1] then  f:=false;
    if f then  writeln(p,' - ',w);
    i:=i+length(w);
   end
else i:=i+1;
readln
end.