В ПАСКАЛЕ. строка содержит одно слово. является ли оно палиндромом? ПОМОГИТЕ ПЛИЗ!

Var
    s: string;
    i: integer;

begin
    read(s);
    s := trim(s);
    for i := 1 to length(s) div 2 do
        if s[i] s[length(s) - i + 1] then begin
            writeln(Не палиндром);
            exit;
        end;
    writeln(Палиндром);
end.