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

var    s, s1: string;    i: integer;begin    writeln('введите предложение ');    readln(s);        repeat        i := pos(' ', s);        delete(s, i, 1);    until i = 0;        s1 := '';    for i := length(s) downto 1 do        s1 := s1 + s[i];        if s = s1 then         writeln('это палиндром')     else        writeln('не палиндром');end.