[Alegun]

Чтоб "(удалить повторяющиеся элементы(оставить по 1) " нужны дополнительные данные на массив и массив2, их размерность, а вот с упорядочиванием одномерного массива намного проще

Код:

type
  TArr = array of integer;
procedure tpm(var a : TArr);
var
 i,j,t : integer;
begin
  {сортировка массива методом простых обменов ("пузырька") }
  for i:= 0 to Length(a)-1 do
    for j:=i+1 to Length(a)-1 do
      if a[i] <= a[j] then
       begin
        t := a[i];
        a[i] := a[j];
        a[j] := t;
       end;
end;

применительно к вашей задаче, вариант по сортировке столбцов из StringGrid1 в StringGrid2

Код:

procedure TForm1.Button2Click(Sender: TObject);
var
 i,j,b: integer;
 a: TArr;
 begin
 for i := 0 to StringGrid1.ColCount-1 do
  begin
    SetLength(a,StringGrid1.ColCount);

   for j := 0 to StringGrid1.RowCount-1 do
    a[j]:= StrToInt(StringGrid1.Cells[i,j]);
    tpm(a);

   for b := 0 to Length(a) do
    StringGrid2.Cells[i, b]:= IntToStr(a[b]);
  end;

 end;