Непонятки с условием

[L3zh1Y]

Объясните пожалуйста задачу, а именно условие, как оно работает.

Program Stroki;
Uses crt;
var  s,n,k:string; i,j,h:integer;
Begin
clrscr;
writeln('vvediite stroku ');Readln(s);
writeln;
h:=0;
for i:=1 to length(s) do begin
if s[i]=' ' then
delete(s,1,-1);
end;
if s[i]<>s[length(s)-i+1]
then begin writeln('ne perevertysh');end;
if s[i]=s[length(s)-i+1] then begin writeln('perevertysh');end;
Readln;
end.

[Stilet]

В цикле удаляются все пробелы, и проверяются символы симметрично относительно центра строки (т.е. отстоящие от начала и конца на одинаковом расстоянии). Если хоть один раз символы несимметричны - эта строка не палиндром.

[Z1000000]

никак не работает. Все прога неправильная!
Предполагалось, как мне кажеться, проверять слова в строке, разделенные пробелами, на предмет : слово - перевертыш или нет. Так?

[VintProg]

Срочно качаем книгу и учимся:
http://programmersup.3dn.ru/load/uch...ki_po_delphi/4
здесь все написано по твоей теме!

[Z1000000]

Я ошибся.
Объяснение Stileta правильное.
А вот правильный код!

Program Stroki;
Uses crt;
var  s,n,k:string; i,j,h:integer;
Begin
clrscr;
writeln('vvediite stroku ');Readln(s);
writeln;
h:=0;
for i:=1 to length(s) do
 begin
 if s[i]=' ' then delete(s,i,-1);
 if s[i]<>s[length(s)-i+1] then
  begin
  writeln('ne perevertysh');
  Exit;
  end;
 end;
writeln('perevertysh');
Readln;
end.