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

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

Pascal  const      z = 3;   var    s,v1,v2 : integer;     t1,t2 : real;         begin  writeln ('s=');   readln (s);   writeln ('v1 v2');     readln (v1,v2);     t1 : = s/v1 + z;     t2 : = s/v2;     if t1 < t2 then    writeln ('смекалкин обгонит брата');   if t1 > t2 then    writeln ('смекалкин не догонит брата');     if t1 = t2 then    writeln ('оба брата придут одновременно');   end.

Pascal const  n = 10; //кол-во студентов //можно сделать с вводом с клавиатуры       var  i,a : integer;     o : array[2..5] of integer;           begin  randomize;     for i : =2 to   5 do    o[i] : = 0;         for i : = 1 to n do    begin      a : = 2 + random(4);       o[a] : = o[a] +1;     end;     for i : = 2 to 5 do    writeln (i,'=',o[i]);     end.