Определить является ли слово перевертышем

 program Arozaupalanalapuazora;
 
 
var s:string [40];
    i:integer;
begin
writeln ('vvedite virajeniye:');
readln (s);
while pos(' ',s)>0 do delete (s,pos(' ',s),1);
i:=length(s) div 2;
while (i>0) and (s[i]=s[length (s)-i+1]) do dec(i);
if i=0 then writeln ('yavlyaetsta perevertishem') else writeln ('ne yavlyaetsa perevertishem');
readln
end.

const
    ANSWER: Array[Boolean] Of String[17] = ('Is not palindrome', 'Is palindrome');
    SEPARATORS: Set Of Char = [' ', '.', ',']; //добавить по вкусу
function IsPalindrom(const s: String): Boolean;
var
    Result: Boolean;
    i: Byte;
begin
    i := 1;
    repeat
        Result := (s[i] = s[Length(s) + 1 - i]);
        Inc(i);
    until ((i >= Length(s) div 2) Or Not Result);
    IsPalindrom := Result;
end;
var
    s, si: String;
begin
    Write('Input string: '); ReadLn(s);
    s := s + ' ';
    while (Length(s) > 0) do
    begin
        si := '';
        while Not (s[1] in SEPARATORS) do
        begin
            si := si + s[1];
            Delete(s, 1, 1);
        end;
        if (Length(si) <> 0)
        then
            WriteLn(si, ' - ', ANSWER[IsPalindrom(si)]);
        Delete(s, 1, 1);
    end;
end.

const
  ANSWER: Array[Boolean] Of String[17] = ('Is not palindrome', 'Is palindrome');
 
function IsPalindrom(const s: String): Boolean;
var
  Res: Boolean;
  i: Byte;
begin
  i := 1;
  repeat
    Res := (s[i] = s[Length(s) + 1 - i]);
    Inc(i);
  until ((i >= Length(s) div 2) Or not Res);
  IsPalindrom := Res;
end;
 
var
  s, si: String;
 
begin
  Write('Input string: ');ReadLn(s);
  s := s + ' ';
  while (Length(s) > 0) do
  begin
    si := '';
    while not ((s[1] = ' ') or ((s[1] = ',')) or (s[1] = '.') ) do
    begin
      si := si + s[1];
      Delete(s, 1, 1);
    end;
    if (Length(si) <> 0)
        then
      WriteLn(si, ' - ', ANSWER[IsPalindrom(si)]);
    Delete(s, 1, 1);
  end;
end.