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

procedure TForm1.Button1Click(Sender: TObject);
var
  P: array[1..10] of integer;
  //N: array[1..10] of string;
  zs: integer;
  i, j: integer;
begin
  for i := 1 to 9 do
    P[i] := StrToInt(stringgrid1.Cells[1, i]);

  for j := 1 to 9 do
    for i := 1 to 8 do
      if P[i] < P[i + 1] then
      begin
        zs := P[i];
        P[i] := P[i + 1];
        P[i + 1] := zs;
      end;
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:
34:

procedure TForm1.Button1Click(Sender: TObject);
var
  aPLZ: array[1..10] of Integer;
  aOrt: array[1..10] of string;
  iTemp: Integer;
  sTemp: string;
  i, j: integer;
begin
  for i:= 1 to 9 do
  begin
    aPLZ[i]:= StrToInt(StringGrid1.Cells[1,i]);
    aOrt[i]:= StringGrid1.Cells[2, i];
  end;

  for j:= 1 to 9 do
    for i:= 1 to 8 do
      if aPLZ[i]< aPLZ[i + 1] then
      begin
        { erst PLZ }
        iTemp := aPLZ[i];
        aPLZ[i] := aPLZ[i + 1];
        aPLZ[i + 1] := iTemp;
        { dann Ort }
        sTemp:= aOrt[i];
        aOrt[i]:= aOrt[i+ 1];
        aOrt[i+ 1]:= sTemp;
      end;

  for i := 1 to 9 do
  begin
    StringGrid2.Cells[1, i]:= IntToStr(aPLZ[i]);
    StringGrid2.Cells[2, i]:= aOrt[i];
  end;
end;