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

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] <> s[len - i + 1] then        begin             b := false;             break;        end;     writeln(b);end.