рейтинг студентов

var mesto, point:integer;
begin
   ... сперва надо отсортировать по убыванию набор данных...
   mesto:=1;
   ADOTable1.First;
   While not ADOTable1.Eof do begin
       ADOTable1.Edit;
       ADOTable1.FieldByName('mesto').AsInteger :=mesto;
       ADOTable1.Post;
       point:=ADOTable1.FieldByName('point').AsInteger;
       ADOTable1.Next;
       if ADOTable1.FieldByName('Point').AsInteger <> point then
           mesto:=mesto+1;
   end;

Table1.IndexFieldNames:='Point';
Table1.IndexDefs[Table1.IndexDefs.IndexOF(Table1.IndexFieldNames)].Options :=
Table1.IndexDefs[Table1.IndexDefs.IndexOF(Table1.IndexFieldNames)].Options - [ixDescending];

 With ADOTable1 do
  begin
     First;
     While not EOF do
     begin
        Edit;
        FieldByName('Suma').Asinteger:=FieldByName('N_balu_1').AsInteger+FieldByName('N_balu_2').AsInteger+FieldByName('N_balu_3').AsInteger;
        Post;
        Next;
     end;
  end;

        FieldByName('Suma').Asinteger:=FieldByName('N_balu_1').AsInteger+FieldByName('N_balu_2').AsInteger+FieldByName('N_balu_3').AsInteger;

DataModule1.ADOTable6.Sort:='SumZv';
MestoZv:=1;
DataModule1.ADOTable6.last;
for k:=DataModule1.ADOtable6.recordcount downto 1 do
begin
DataModule1.ADOTable6.Edit;
DataModule1.ADOTable6.FieldByName('MestoZv').AsInteger:=MestoZv;
DataModule1.ADOTable6.Post;
 SumZv:=DataModule1.ADOTable6.FieldByName('SumZv').AsInteger;
DataModule1.ADOTable6.Prior;
 if DataModule1.ADOTable6.FieldByName('SumZv').AsInteger <> SumZv then
    MestoZv:=MestoZv+1;
 end;
 DataModule1.ADOTable6.Sort:= 'MestoZv';

With datamodule1.ADOTable6 do begin
      Sort:='sumZv';
      MestoZv:=1;
      First;
      for k:=1 to RecordCount do
      begin
            Edit;
            FieldByName('MestoZv').AsInteger:=MestoZv;
            Post;
            SumZv:=FieldByName('SumZv').AsInteger;
            Next;
            if FieldByName('SumZv').AsInteger <> SumZv then
              MestoZv:=MestoZv+1;
     end;
     Sort:= 'Mesto';
end;