Определить, является ли введенное предложение палиндромом (читается одинаково сначала до конца и наобарот ''аргентина манит негра'') вот что у меня получилось 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.