Сортировка В delphi

[Bimmer71]

Такое вот условие :

Даны три действительных числа х1,х2,х3. Составить программу расстановки их в убывающем порядке при любом
исходном порядке.

Для ввода вывода массива использовать StringGrid...
Помогите,плиз

[SNUPY]

Uses ...., Math;
...
SG:TStringGrig;
...
var
  X1,X2,X3:Double;
...
With SG do
begin
  FixedCols:=0; ColCount:=1;  RowCount:=4;
  Cells[0,0]:='Значение';

  Cells[0,1]:=FloatToStr(Max(X1,Max(X2,X3)));
  Cells[0,3]:=FloatToStr(Min(X1,Min(X2,X3)));
  Cells[0,2]:=FloatToStr(X1+X2+X3-StrToFloat(Cells[0,1])-StrToFloat(Cells[0,3]));
end;
...

[Bimmer71]

есть вот такой вод код:

procedure TForm1.Button1Click(Sender: TObject);
var i,k,j,min:integer;
buf:integer; 
a:array[1..3] of integer;
st:string;
begin

for i:=1 to 3 do
a[i]:=StrToInt(GetSubStr(Edit1.text,' ',i));
for i:=1 to 3 - 1 do 
 begin

  min:=i;
  for j:=i+1 to 3 do
   if a[j] < a[min] then min:=j;

  buf:=a[i];
  a[i]:=a[min];
  a[min]:=buf;
 end;

for k:=1 to 3 do
Form1.Caption:=Form1.caption + ' '+ IntToStr(a[k]);
end;

как вместо a[i]:=StrToInt(GetSubStr(Edit1.text,' ',i)); вводить данные в StringGrid ?
и вообще переделать под StringGrid ?

[SNUPY]

ЛОЛ.... Вам я уже написал решение... Уж не поленитесь вкатить в то, что я изобразил, в противном случаи я вынужден полагать, что вам нужно сразу уже готовое решение....

[Bimmer71]

а нет другого способа ,чем тот что вы дали ?

[SNUPY]

Более сжатого нет =(

[Bimmer71]

спасибо и за это !