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

procedure Sortieren(var AdressArray: array of TAdress);
var
  i, j: Integer;
  tmp: TAdress;
begin
  for i:= 1 to high(AdressArray) do
  begin
    j:= i;
    tmp := AdressArray[i];
    while (j > 0) and (AdressArray[j-1].Vorname > tmp.Vorname) do
    begin
      AdressArray[j]:= AdressArray[j-1];
      Dec(j);
    end;
    AdressArray[j]:= tmp;
  end;
end;