Двумерный массив...

[slim5]

Помогите пожалуйста с следующим заданием.
Дан список и количество очков, набранных каждой командой. Упорядочить список начиная с той, которая набрала большее количество очков. Данные должны вводиться в stringgrid, а команды выводиться в memo.

[OLEG'arh]

//заполнение
procedure TForm1.Button1Click(Sender: TObject);
 var
    i:integer;
 begin
  max:=0;
  stroka:=1;
  memo1.Text:='';
  a[1,1]:='Команда A';
  a[2,1]:='Команда B';
  a[3,1]:='Команда C';
  a[4,1]:='Команда D';
  a[5,1]:='Команда E';
  for i:=1 to 5 do
    begin
       a[i,2]:=inttostr(random(10));
       memo1.Text:=memo1.Text+a[i,1]+#13#10#13#10;
       form1.StringGrid1.Cells[0,i-1]:=a[i,2];
       if  strtoint(a[i,2]) > max then
                          begin
                            max:=strtoint(a[i,2]);
                            stroka:=i;
                          end;
    end;

  end;


//сортировка
procedure TForm1.Button2Click(Sender: TObject);
 var
    i,j:integer;
    x:string;
 begin
 // Упорядочить список начиная с той, которая набрала большее количество очков. использовал сортировку методом "пузырька"
   for j:=0 to stroka do
   for i:=stroka to 4-j do
      if a[i,2]>a[i+1,2] then
                            begin
                              x:=a[i,2];
                              a[i,2]:=a[i+1,2];
                              a[i+1,2]:=x;
                            end;
   for i:=1 to 5 do
     form1.StringGrid1.Cells[0,i-1]:=a[i,2];

 end;

end.

[slim5]

Спасибо за помощь