Delphi полиндром

function pole(s:string):boolean; var i,j:integer; begin i:=1; j:=length(s); result:=true; if (s[i]=s[j]) or (s[i]=' ') or (s[j]=' ')then repeat if s[i]=' ' then delete(s,i,1); if s[j]=' ' then delete(s,j,1); lowercase(s[i]); lowercase(s[j]); if i>= j then exit; { http://rucode.blogspot.ru/ } inc(i); dec(j); until s[i]<>s[j] else result:=false;