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

Число симметричное