Задание по Delphi.

[Sfera]

Привет всем! Помогите с заданием.
Дана матрица A(n,m) Необходимо: упорядочить элементы в каждом столбце матрицы по убыванию, а сами расположить по убыванию кол-во ненулевых элементов в столбце.
Матрица выводится через Stringgrid.

Начальный код:

var
Form1: TForm1;
i,j:integer;
f: array of integer;
max: integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
try // присвоилb введенное значение i - кол-во столбцов
i:=strtoint(edit1.text);
except // ошибка
on EconvertError do
ShowMessage('Введите число');
end;
try // присвоилb введенное значение j - кол-во сток
j:=strtoint(edit2.text);
except // ошибка
on EconvertError do
ShowMessage('Введите число');

end;
begin
StringGrid1.RowCount:=i; // выводим количество столбцов
StringGrid1.ColCount:=j; // выводим количество строк
end;


end;

procedure TForm1.Button2Click(Sender: TObject);
var i,j: integer;

begin // заполняем данную матрицу случайным выбором
for i:=0 to StringGrid1.ColCount-1 do
for j:=0 to stringgrid1.RowCount-1 do
begin
StringGrid1.Cells[i,j]:=inttostr(random(100));

end;
end;