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

var
  IntArray : array [1..10] of integer;
  Index    : integer;
...
  Index := 1;
  Result := false;
  while (Index < 10) and (not Result) do
    begin
      if IntArray[Index] = IntArray[Index + 1] then
        Result := true;
      Inc(Index);
    end;                    

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

  
  doubles:=0;
  Index := 0;
  j:=5;
  Result := false;
  while (Index < 5) do
  begin
    if array[Index] = array[Index + 1] then
    begin
     array[Index]:=array[j];
     j:=j-1;
     inc(doubles);
    end;
     Inc(Index);
     if doubles=1 then
      setlength (array, 4);
     if doubles=2 then
      setlength (array, 3);
     if doubles=3 then
      setlength (array, 2);
    end;                    

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

  doubles:=0;
  Index := 0;
  j:=5;
  while (Index < 5) do
  begin
    if array[Index] = array[Index + 1] then    //doppelte einträge sollen nach hinten gestellt werden
    begin
      dummy:=array[j];                           //dummy nimmt letze positions des arrays
      array[j]:=array[index+1];                  //letzte position wird dem paar zugewiesen
      array[index+1]:=dummy;                     //paar wird mit letztem wert überschrieben
      j:=j-1; 
      inc(doubles);
    end;
    Inc(Index);
    if doubles=1 then
      setlength (array, 4);
    if doubles=2 then
      setlength (array, 3);
    if doubles=3 then
      setlength (array, 2);
  end;                    

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

type
  TIntArray = Array of Integer;

{..}

procedure RemoveAllFurtherInstances(var Arr: TIntArray);
begin
  Sort(Arr);
  i := Low(Arr) + 1;  //Lesen, von links:
  j := i;  //Schreiben: In's selbe Array, da wir dieses nicht mehr brauchen
  while i <= High(Arr) do begin       //Wir lesen bis zum rechten Ende:
    if Arr[i-1] <> Arr[i] then begin  //verschiedene Einträge..
      Arr[j] := Arr[i];                 //schreiben wir ab
      Inc(j);                           //(dann natürlich den Schreibkopf auch eins weiter setzen)
    end;  //gleiche Elemente werden nicht übernommen, und fallen somit weg
    Inc(i);
  end;
  SetLength(Arr, j - Low(Arr) + 1);  //Am Schluss alles weg, das das alte Array länger war
end;                    

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

var
  i, CurLength: Integer;
begin
  i := Succ(Low(MyArray));
  if Length(MyArray) > 0 then
    CurLength := 1
  else
    CurLength := 0;
  while i <= High(MyArray) do
  begin
    if MyArray[Pred(i)] <> MyArray[i] then
    begin
      MyArray[CurLength] := MyArray[i];
      Inc(CurLength);
    end;
    Inc(i);
  end;
  SetLength(MyArray, CurLength);                    

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:

var
  i, CurLength: Integer;
  myarray : array of integer;
begin
  setlength(myarray,5);
  myarray[0]:=5;
  myarray[1]:=3;
  myarray[2]:=3;
  myarray[3]:=5;
  myarray[4]:=1;
  myarray[5]:=2;
  i := Succ(Low(MyArray));
  if Length(MyArray) > 0 then
    CurLength := 1
  else
    CurLength := 0;
  while i <= High(MyArray) do
  begin
    if MyArray[Pred(i)] <> MyArray[i] then
    begin
      MyArray[CurLength] := MyArray[i];
      Inc(CurLength);
    end;
    Inc(i);
  end;
  SetLength(MyArray, CurLength);
  showmessage(inttostr(myarray[0])+' '+inttostr(myarray[1])+' '+inttostr(myarray[2])+' '+inttostr(myarray[3])+' '+
    inttostr(myarray[4])+' '+inttostr(myarray[5]));
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:
31:
32:
33:

type
  TIntArray = array of integer;

procedure TMainform.Button1Click(Sender: TObject);
var
  IntArray : TIntArray;
  Schleife : integer;
  Rest     : integer;
begin
  // Array füllen

  SetLength(IntArray, 10);
  for Schleife := 0 to 9 do
    IntArray[Schleife] := Schleife + 1;
  IntArray[1] := 3;
  IntArray[3] := 3;
  IntArray[7] := 7;

  // Array enthält jetzt die Werte (1, 3, 3, 3, 5, 6, 7, 7, 9, 10)

  // doppelte Werte löschen

  for Schleife := 9 downto 1 do
    begin
      if IntArray[Schleife] = IntArray[Schleife - 1] then
        begin
          Rest := Length(IntArray) - Schleife;
          Move(IntArray[Schleife], IntArray[Schleife - 1], SizeOf(integer) * Rest);
          SetLength(IntArray, Length(IntArray) - 1);
        end;
    end;
  Label1.Caption := 'Fertig';  // mein Breakpoint fürs Debuggen ;-)
end;