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