Hoch Programm

[boxer123]

Also das programm soll sich eine hohe zahl auswählen und sie dann auseinander nehmen und kommt drauf an wenn es eine 4 stellige zahl ist dann so mit jder zahl hoch 4 genommen werden und wenn es eine 5 stellige zahl ist dann muss jede ziffer mit hoch 5 genommen werden.


Es funkt aber nicht.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var zahl1 , zahl2:integer;
ziffer: Array [ 1..4 ] of integer;
begin
zahl1:= 1000;
repeat
  zahl1:= zahl1+1;
    ziffer[1]:= ( zahl1 mod 10 ) div 1;
    ziffer[2]:= ( zahl1 mod 100 ) div 10;
    ziffer[3]:= ( zahl1 mod 1000 ) div 100;
    ziffer[4]:= ( zahl1 mod 10000 ) div 1000;
  for i:= 1 to 4 do
    ziffer[i]:= ziffer[i] * ziffer[i] * ziffer[i] * ziffer[i];
  until zahl1= zahl2;
edit2.text:= InTTostr(zahl1);
end;

Edit: sorry habe das wichtige ausgelassen, das ergebnis soll der gleichen zahl gleich sein