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

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