{I - способ : }
      for i:=length(s) downto 1 do s1:=s1+s[i];
      if s=s1 then write('Слово полиндром') else write('Слово не полиндром');

   {II - способ : }
      n:=(length(s) div 2)+1; i:=1;
      while (s[i]=s[length(s)-i+1]) and (i<n) do inc(i);
      if i=n  then write('Полиндром') else write('Не полиндром');