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

var   i, a, b, n, n2, j: longint;   s: string;   flag: boolean; begin   Write('Введите натуральное число больше 11: ');   Readln(a);   if a <= 11 then Writeln('11 - первое симметричное число')   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 Число симметричное