Pascal. Определить, образуют ли цифры числа симметричную последовательность

Var
i, a, b, n, n2, j: longint;
s: string;
flag: boolean;

begin
Write('Введите натуральное число больше 11: ');
Readln(a);
if a <= 11 then Writeln('11 - первое симметричное число')<br> else begin
    Str(a, s);
    n := Length(s); n2 := n div 2; flag := true; i := 1;
    repeat
      flag := (s[i] = s[n - i + 1]);
      i := i + 1
    until (not flag) or (i > n2);
    if flag then Write('Число симметричное')
    else Write('Число несимметричное')
end;
end.

Тестовое решение:

Введите натуральное число больше 11: 123454321
Число симметричное