Pascal палиндром

Pascal палиндром, Задание на паскале, Является число палиндромом?

Написать программу, которая определяла бы является ли число, введенное с клавиатуры палинромом или нет
Пример:
Ввод: 12321  или  Ввод: 12324
Вывод: палиндром Вывод: не палиндром

Решение
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('Не палиндром');
            f := 1;
            break
        end;
    if f = 0 then
        write('Палиндром');
readln
end.