составить программу: является ли слово пилигримом

var s:string; i:integer; b:boolean;begin readln(s); k:=length(s); b:=truefor i:=1 to k div 2 do if s[ i]<>s[ k-i+1] then b:=false;writeln(b);readlnend.

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018Внимание! Если программа не работает, обновите версию!begin  var s:=ReadlnString;  if s=s.Reverse.JoinIntoString then Writeln('Это палиндром')  else Writeln('Это не палиндром')end.ПримершалашЭто палиндром