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

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.