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

Я, конечно, сей же час подвергнусь неминуемой критике, но вот перед Вами самое длинное слово-палиндром, поскольку строковая величина 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.