и снова палиндром

[ММАРУСЬКА]

дано n-разрядное число.выяснить,является ли оно палиндромом.

[Leshii]

Оно?

var
    s: string;
    i,f: byte;
begin
    write('String: ');
    readln(s);
    f := 0;
    for i := 1 to length(s) div 2 do
        if s[i] <> s[length(s)-i+1] then begin
            writeln('No palindrome');
            f := 1;
            break
        end;
    if f = 0 then
        write('Palindrome');
readln
end.