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

var
  index: integer; // dieser eintrag soll gelöscht werden
begin
  // Überschreibe das Element mit seinem Nachfolger
  for i := index to length(arr)-2 
    arr[i] := arr[i+1]; 
  // Dekrementiere die Länge des Arrays
  setlength(arr, length(arr)-1);
end;					

1:
2:
3:
4:
5:
6:
7:

var
  index: integer; // zu löschender Index
begin
  ...; // Hier am besten noch ne Bereichs-Prüfung machen
  arr[index] := arr[high(arr)];
  setlength(arr, length(arr)-1);
end;					

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

procedure Verschieben(vonIndex, nachIndex:integer)
var zwischenSpeicher:string;
    i:integer;
begin
if von<nach then
  begin //also wenn von kleiner ist als nach
  for i:=von to nach-1 do
    begin
    zwischenSpeicher:=deinArray[i+1];
    deinArray[i+1]:=deinArray[i];
    deinArray[i]:=zwischenSpeicher;
    end;
  end
else
  begin //sonst das ganze einfach andersherum:
  for i:=von downto nach+1 do
    begin
    zwischenSpeicher:=deinArray[i-1];
    deinArray[i-1]:=deinArray[i];
    deinArray[i]:=zwischenSpeicher;
  end;
end;