Programm Hilfe

[boxer123]

Wenn ich das programm so laufen lasse kommt immer 2 raus

Delphi-Quellcode:

zahltext:= edit1.text ;
for i:= 1 to 4 do
 begin
  a[ i ] :=copy (zahltext,i,1) ;
  b[ i ] :=copy (zahltext,i,1) ;
 end;
 zahl3 := 1;
 repeat
  doppelt := true;
  for i:= 1 to 3 do
   for j:=i+1 to 4 do
    if a[ i ] <= a[ j ] then
     begin
      park:=a[ i ] ;
       a[ i ] := a[ j ] ;
       a[ j ] := park ;
      end;
    zahl3 := zahl3 + 1;
  until doppelt;
  zahl3 := 1;
  repeat
    doppelt := true;
    for i:= 1 to 3 do
      for j:= i+1 to 4 do
        if b[ i ] >= b[ j ] then
          begin
            park := b[ i ] ;
            b[ i ] := b[ j ] ;
            b[ j ] := park ;
          end;
      zahl3:= zahl3 + 1;
    until doppelt;
zahltexteins := ' ' ;
zahltextzwei := ' ' ;
for i:=1 to 4 do
 begin
  zahltexteins:= zahltexteins + a[ i ] ;
  zahltextzwei:= zahltextzwei + b[ i ] ;
 end;
zahl1:= strtoint (zahltexteins) ;
zahl2:= strtoint (zahltextzwei) ;
differenz:= zahl1 - zahl2 ;
edit2.text:= IntToStr (zahl3);
end;;
end;

EDITTTTTT