помогите пожалуйста решить ..

[Russki]

Строка содержит одно слово. Проверить, будет ли оно чи¬таться одинаково справа налево и слева направо (т.е. является ли оно палиндромом).

[sheka]

b:=true;
for i:=1 to trunc(length(s)/2) do
  if s[i]<>s[length(s)-i+1] then
    brgin
      b:=false;
      break;
    end;
writeln(b);

[Russki]

спасибо большое)