Помогите пожалуйста решить задачу в Pascal ABC

так проще и все полностью:

VAR s:string;
j:integer;
b:boolean;
BEGIN
readln(s);
b:=true;
for j:=1 to length(s) div 2 do if s[j]<>s[length(s)+1-j] then b:=false;
if b then writeln('это палиндром') else writeln('это НЕ палиндром');
END.

должна вырезать все пробелы!! ! или обойти их, склеить просто буквы
var s,s1:string;
i:integer;
begin
readln(s);
s1:='';
нужен цикл с параметром for I:=1 to length(s) от 1 и до конца длины строки
if s{i}<>' ' then s1:=s{i}+s1; ( з. ы. тут i в квадратные скобках s1:= s итое плюс s1)
If s=s1 then writeln('да')
else writeln('нет');
end.
не проверяла, но логика такая запятые ты тоже должна вырезать, как и пробелы

Помню-помню.. . Такая ещё задача на олимпиаде была.. .
Function Palidrom(s:PChar {слова могут быть больше 255}):boolean;
var i:integer;
begin
Palidrom:=true;
for i:= 1 to length(s) do
Palidrom:=Palidrom and (s[ i ]=s[ length(s)-i+1 ]);
end;

не вижу в Вашем примере палиндрома... .
однако подскажу вот что с помощью mod2 и mod3 можно проверить четное или нечетное (соотвественно) кол-во букв в слове, а потом проверять на начальных и конечных букав до середины.. .
ЗЫ конечно предварительно надо разбить строку на массив слов, делается это по условию пробела (если не пробел значит заносим строку в массив)
ЗЫ массив строк и одна переменная типа строки чтобы заносить в массв