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:

procedure TMain.SpeedButton1Click(Sender: TObject);
var index, i, curlength, zahl1, zahl2, zahl3, zahl4, zahl5, zahl6 : integer;
result : boolean;
begin
  //einlesen
  zahl1:=strtoint(edit1.Text);
  zahl2:=strtoint(edit2.Text);
  zahl3:=strtoint(edit3.Text);
  zahl4:=strtoint(edit4.Text);
  zahl5:=strtoint(edit5.Text);
  zahl6:=strtoint(edit6.Text);
  //array füllen
  setlength(ownhandarray,6);
  ownhandarray[0]:=zahl1;
  ownhandarray[1]:=zahl2;
  ownhandarray[2]:=zahl3;
  ownhandarray[3]:=zahl4;
  ownhandarray[4]:=zahl5;
  ownhandarray[5]:=zahl6;
  bubblesort(ownhandarray); //ordnet zahlen (klappt wunderbar)
  // ab hier liegt der Fehler irgendwo
  i := Succ(Low(ownhandarray));
  if Length(ownhandarray) > 0 then
    CurLength := 1
  else
    CurLength := 0;
  while i <= High(ownhandarray) do
  begin
    if ownhandarray[Pred(i)] = ownhandarray[i] then
    begin
      inc(paare);
      ownhandarray[CurLength] := ownhandarray[i];
      Inc(CurLength);
    end;
    Inc(i);
  end;
end;					

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

  
  i := Succ(Low(ownhandarray));  // i kriegt den wert 1
  if Length(ownhandarray) > 0 then  //da die länge immer über 0 ist kriegt curlength auch den wert 1
    CurLength := 1
  else
    CurLength := 0;
  while pred(i) <= High(ownhandarray) do  //hier liegt glaube ein fehler, ich will ja nicht erst ab dem zweiten wert anfangen, sondern ab dem ersten, also aus i pred(i) gemacht
  begin
    if ownhandarray[Pred(i)] = ownhandarray[i] then  //falls sich zwei naheliegende werte gleich sind dann... 
    begin
      ownhandarray[i] := ownhandarray[inc(i)];  //hier lasse ich curlength am besten weg, kann mit i auch rechnen, also aus curlength i gemacht und aus i inc(i)
    end;                                        // so jetzt hat das 2te paar den wert von dem folgenden wert und wir können zum nächsten wert gehen mit inc(i)
    Inc(i);
  end;					

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

if Length(ownhandarray) > 0 then
begin
  i := Succ(Low(ownhandarray));
  CurElement := 0;
  while i <= High(ownhandarray) do
  begin
    if ownhandarray[i] <> ownhandarray[CurElement] then
    begin
      Inc(CurElement);
      ownhandarray[CurElement] := ownhandarray[i];
    end;
    Inc(i);
  end;
  SetLength(ownhandarray, Succ(CurElement));
end;