Определить, является ли введенное предложение палиндромом (читается одинаково сначала до конца и наобарот ''аргентина манит негра'')
вот что у меня получилось
program z1;var s,s1,s2,b:string; a,c,d,e,z,r,i:integer;beginwriteln ('введите предложение ');readln(s);for c: = 1 to length(s) dobeginz: = pos(' ',s);delete(s,z,1);end;
for i: = length(s) downto 1 dobeginwrite(s[i]);end;

if s = (s[i]) then writeln ('это палиндром') elsewriteln('не палиндром');end.