Массив записей о спортсменах: вывести спортсменов занявших первое место

type
  mass= record
    RNameAt: string[20];
    RNameCo: string[40];
    RNmbShot: integer;
  end;

var
  Form1: TForm1;
  RecAt: array[1..10] of mass;
  RA: mass;
  MxSht: integer;
  i: integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  i := 0;
  with stringgrid1 do
    begin
      Cells[0,0] := 'Спортсмен';
      Cells[1,0] := 'Страна';
      Cells[2,0] := 'Кол-во';
    end;
  MxSht := 0;
end;

procedure TForm1.SaveBtnClick(Sender: TObject);
var
  k,j: integer;
begin
  inc(i);
  with RecAt[i] do
    begin
      RNameAt := NameAt.Text;
      RNameCo := NameCo.Text;
      RNmbShot := 0;
      RNmbShot := strtoint(ShotBox.text);
      if MxSht < RNmbShot then MxSht := RNmbShot;
    end;
 
  ra := RecAt[i];
  Stringgrid1.RowCount := 10;
 
  j := 1;
 
  for k := 1 to i do
    if (RecAt[k].RNameAt >= RecAt[i].RNameAt)  then
      begin
        RA := RecAt[k];
        RecAt[k] := RecAt[i];
        RecAt[i] := RA;
      end;
 
  for k := 1 to i do
    if (RecAt[k].RNmbShot = MxSht) then
      begin
        stringgrid1.Cells[0,j] := RecAt[k].RNameAt;
        stringgrid1.Cells[1,j] := RecAt[k].RNameCo;
        stringgrid1.Cells[2,j] := inttostr(RecAt[k].RNmbShot);
        inc(j);
        stringgrid1.RowCount := j;
      end;
end;