Free pascal. Написать программу детектирования слова-полиндрома

var    s: string;    i: integer;begin    writeln('Введите строку:');    readln(s);        for i := 1 to length(s) div 2 do        if s[i] <> s[length(s) - i + 1] then begin            writeln('не палиндром');            Halt;        end;        writeln('палиндром');end.