Строчка содержит одно слово-шалаш. Проверить будет ли оно читаться одинаково справа

Var s : string;
    b : boolean;   
 i, len : integer;begin     readln(s);     len := length(s);     b := true;     for i := 1 to len div 2 do     if s[i] lt;gt; s[len - i + 1] then        begin             b := false;             break;        end;     writeln(b);end.