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:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:

var     x,j,n,z,y,sportzahl :integer;
        Temp: TStrings;
        zahlen: array[-1..1000] of integer;

begin
 n :=stringgrid1.rowcount-1;             
       begin
        zahlen[i]:=StrToInt(stringgrid1.Cells[8,i]);
       end;
           begin
              for i:= 1 to n do
              begin
               for j:= n downto i do
               begin
                if ( zahlen[j-1] < zahlen[j] ) then
                begin
                    Temp:=TStringList.Create;
                        try
                         Temp.Assign(stringgrid1.Rows[j]);            
                         stringgrid1.Rows[j].Assign(stringgrid1.Rows[j-1]);
                         stringgrid1.Rows[j-1].Assign(Temp);
                         finally
                           Temp.Free;
                          end;
                  x:=zahlen[j-1];
                 zahlen[j-1]:=zahlen[j];
                 zahlen[j]:=x;

                 end;
               end;
              end;
            end;

       for i:=1 to n do
       begin
       stringgrid1.cells[8,i]:=IntToStr(zahlen[i]);
        end;

        z:=1;                                        
        Y:=1;
        for i:=1 to filesize(f) do begin
        stringgrid1.cells[0,y]:=inttostr(z);
        y:=y+1;
          Z:=z+1;
         end;
         x:=0;
          for i:=1 to n do begin
                                                     
X:=x+1;
          end;


end;