1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

var zahl : Integer;
    s : String;
[...]

function Reverse(str:String):String;
var i : Integer;
begin
  for i := Length(str) downto 1 do
    Result := Result + str;
end;

s := Reverse(Format('%.'+IntToStr(anzahl_ziffern)+'d',[zahl]));
// s kannst du als ausgabe verwenden					

1:

inc(i);					

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

// Initialisieren
for i := 1 to Stellenzahl do Wasseruhr [i] := 0;

// Durchzählen
for i := 1 to Stellenzahl do
begin
  for j := 0 to 9 do
  begin
    Wasseruhr [i] := j;
  end;
end;					

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:

Procedure ArrayInc (aNumber : Array Of Integer); // Zählerstellen in aNumber, einer-Stelle in aNumber[0];
Var
  i : Integer;

Begin
  i := 0;                        // Bei der 1. Stelle beginnen
  While i< High (aNumber) do    
    if aNumber[i]=9 Then Begin   // i.te Stelle ist 'voll' 
      aNumber[i] := 0;           // wieder 'leeren' und bei der
      inc (i);                   // nächsten Stelle weitermachen
      End
    Else begin
     inc (aNumber[i]);           // ansonsten normale Addition
     Exit;
     End;
  
  Raise Exception.Create('Überlauf!')
End;

Procedure Test;
Var
  aZaehler : Array [0..5] Of Integer;

Begin
  FillChar (aZaehler, SizeOf (aZaehler), 0);
  While True Do Begin
    ArrayInc (aZaehler);
    ZeigeZaehlerstand (aZaehler);
    End;
End;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

  Anzahl_Buffer := (Potenz (10, Anzahl));   // Zehn Hoch Anzahl  bspw. 10^3
  for i := 1 to Anzahl_Buffer - 1 do

  begin
    Wasseruhr_String := IntToStr (i);
    Stringlaenge_Buffer := Length(Wasseruhr_String);

    // Befüllung des Arrays
    k := Anzahl;
    Position := Stringlaenge_Buffer;

    for j := Stringlaenge_Buffer downto 1 do
    begin
      Wasseruhr [k] := StrToInt (Copy (Wasseruhr_String, Position, 1));
      Dec (Position);
      Dec (k);
    end;

  end;