напечатайте слово-палиндром, содержащее самую длинную цепочку из цифр. в паскале

Я, конечно, сей же час подвергнусь неминуемой критике, но вот перед Вами самое длинное слово-палиндром, поскольку строковая величина S допускает только 255 символов...uses Crt; var i:integer; S, C: string; begin ClrScr; S:=''; for i:=1 to MaxInt do   begin      Str(1,C);      S:=S+C;   end; WriteLn(' S = ', S); ReadLn; end.