Найти все симметричные натуральные числа из промежутка от A до B ( А и B вводятся с клавиатуры)

var   i, a, b, n, n2, j: longint;   s: string;   flag: boolean; begin   Write('Введите через пробел границы диапазона: ');   Readln(a, b);   if b < a then begin n := a; a := b; b := n end;   if a < 11 then a := 11;   for i := a to b do   begin     Str(i, s);     n := Length(s); n2 := n div 2; flag := true; j := 1;     repeat       flag := (s[j] = s[n - j + 1]);       j := j + 1     until (not flag) or (j > n2);     if flag then Write(i, ' ')   end; end. Тестовое решение: Введите через пробел границы диапазона: 800 1500 808 818 828 838 848 858 868 878 888 898 909 919 929 939 949 959 969 979 989 999 1001 1111 1221 1331 1441