1:
2:
3:
4:
5:

     48150 it     20000 dig      4.571300 s
1991208502591586282902869 ... 0206730937179519421471319

    241389 it    100000 dig    117.477378 s
1316113735615475349297100 ... 5799080295258450663731151					

1:
2:

    241389 it    100000 dig     88.742270 s
1316113735615475349297100 ... 7990802952584506637311513					

1:
2:
3:
4:

procedure NumberAddReversed(var Number: TNumber); 
...
    mov byte ptr [ecx], al            // speichern in number
    mov byte ptr [edx], al            // ...					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:

{$APPTYPE console}
program p196console;

uses
  SysUtils,
  Windows;

const zmax:integer=999;
var k:string;
    i,anz,laenge,laenge1:integer;
    gefunden:boolean;
    z,e:array of byte;
    Time1, Time2, Freq: Int64;
begin
  repeat
    write('Startzahl: ');
    readln(k);
    if k='' then k:='196';
    laenge:=length(k);
    write('maximale Laenge: ');
    readln(zmax);
    if zmax<100 then zmax:=100;
    writeln('');

    setlength(z,zmax+2);
    setlength(e,zmax+2);
    for i:=0 to zmax do begin z[i]:=0; e[i]:=0 end;
    for i:=laenge downto 1 do begin
      z[laenge-i]:=ord(k[i])-48;
      e[laenge-i]:=ord(k[i])-48;
    end;
    anz:=0;
    laenge1:=laenge-1;

    QueryPerformanceFrequency(Freq);
    QueryPerformanceCounter(Time1);

    repeat
      inc(anz);
      for i:=0 to laenge1 do inc(e[i],z[laenge1-i]);
      for i:=0 to laenge1 do begin
        if e[i]>9 then begin
          inc(e[i+1]);
          dec(e[i],10);
        end;
      end;
      if e[laenge]>0 then inc(laenge);
      laenge1:=laenge-1;

      gefunden:=true;
      i:=0;
      repeat
        if e[i]<>e[laenge1-i] then gefunden:=false;
        inc(i);
      until (not gefunden) or (i>laenge div 2);

      if gefunden then
      begin
        writeln('Palindrom im Schritt '+inttostr(anz));
        k:='';
        for i:=0 to laenge1 do k:=chr(e[i]+48)+k;
        writeln(k);
      end
      else
        z:=copy(e,0,laenge);

      if anz mod 2000 = 0 then begin
        QueryPerformanceCounter(Time2);
        writeln(anz:10,' It ',(Time2-Time1)/freq:10:6,' s');
      end;
    until gefunden or (laenge=zmax);

    QueryPerformanceCounter(Time2);
    writeln(anz:10,' It ',(Time2-Time1)/freq:10:6,' s');
    if (laenge=zmax) then
    begin
      writeln('Folgenglied im Schritt '+inttostr(anz));
      writeln('Laenge '+inttostr(laenge));
      k:='';
      for i:=0 to 25 do k:=chr(z[i]+48)+k;
      k:=' ... '+k;
      for i:=laenge-26 to laenge-1 do k:=chr(z[i]+48)+k;
      writeln(k);
    end;
    setlength(z,0);
    setlength(e,0);
    writeln('');
  until false;
end.					

1:
2:

1316113735615475349297100 ... 7990802952584506637311513
    241389 it    100000 dig     71.290302 s					

1:
2:

1316113735615475349297100 ... 7990802952584506637311513
    241389 it    100000 dig     75.367305 s					

1:
2:

1316113735615475349297100 ... 7990802952584506637311513
    241389 it    100000 dig     89.618406 s					

1:
2:

1316113735615475349297100 ... 7990802952584506637311513
    241389 it    100000 dig     52.276415 s					

1:
2:
3:
4:
5:
6:
7:
8:
9:

FPC2.6.0
=
1316113735615475349297100 ... 7990802952584506637311513
    241389 it    100000 dig     54.138380 s

Delphi 12
=
1316113735615475349297100 ... 7990802952584506637311513
    241389 it    100000 dig     35.098787 s					

1:
2:
3:
4:
5:

   2415600 it    999900 dig       10519.0 s
   2415800 it    999983 dig       10520.5 s
=
   2415836 it   1000000 dig  10520.815838 s
1321620866345900792403087 ... 1880303207999544559027122					

1:
2:

1316113735615475349297100 ... 7990802952584506637311513
    241389 it    100000 dig    135.658393 s					

1:
2:
3:
4:

  TNumber = packed record
    Length: integer;
    Digits: array[0..0] of TDigit;
  end;					

1:
2:

    241389 it    100000 dig     67.761056 s
1316113735615475349297100 ... 7990802952584506637311513					

1:
2:

    241389 it    100000 dig          82.5 s
13161137356154753492971008 ... 57990802952584506637311513					

 
217:
218:
219:
220:

{ ... }
asm
        mov al, byte ptr [edx]           //wert
        mov byte ptr [ecx], al
end;