modular 0.0?

[Kuehter]

Hallo
Ich habe ein Problem ich habe normalerweise immer 3-tellig Zahlen in dem Programm das ich schrieb. Nur sobald ich eine 2-stellige Zahl einlese, da diese per Random erzeugt werden, dichtet er sich von selbst eine zahl dazu. ich konnte den Fehler schon begrenzen auf folgende Zeilen

Delphi-Quellcode:

function numberdissect(numbers: array of integer): Tallnumbers;  // Aufsplitten der Nummern array Allnumbers besteht aus 27 stellen 0-26

var
    safer: integer;
    counter, resultmerker: integer;
    onenumber: array[0..2] of integer; // Für eine 3 Stellige zahl die er abspeichern soll

begin
    resultmerker := 0;

    for counter := low(numbers) to high(numbers) do
    begin
        safer := 2;
        while numbers[counter] <> 0 do
        begin
          ShowMessage ('Wert ist falsch');
          onenumber[safer] := numbers[counter] mod 10;
          numbers[counter] := numbers[counter] div 10;
          dec(safer);
        end;

        for safer := 0 to 2 do
        begin
            Result[resultmerker] := onenumber[safer];    // speichern der gesplittenen zahl in einzelne werte von 0-9
            inc(resultmerker);
        end;
    end;
end;

Als Beispiel:

Ich habe die Zahlen 623 + 33 = 656
dann schreibt er in die freie Stelle wo eigentliche ne null stehen sollte eine 6 rein uns dort steht dann bei der Ausgabe folgendes

623+633 = 656

das kommt aber nicht mit dem Ergebnis ein

also das er die hier Rot makierte Zahl nimmt weiß ich schon