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

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