Создание массивов Dеlphi

[вася радугов]

Спасибо)))
А как теперь можно отсортировать строки массива по возрастанию? Это типа так:находится элемент массива, имеющий наименьшее значение, и переставляется с первым элементом, затем проделывается то же самое, начиная со второго элемента и т.д.

[вася радугов]

Вот, что у меня получается, но программа не хочет запускаться(

procedure TForm1.Button2Click(Sender: TObject);
var
min,max,i,j:real;
begin
   for i := 0 to StringGrid1.RowCount - 1 do
     for j := 0 to StringGrid1.ColCount - 1 do
   min:=i;
   if StrToFloat(StringGrid1.Cells [j,i])<StrToFloat(StringGrid1.Cells [min]) then
   min:=(StringGrid1.cells[j,i]);
end;

[Mad_Cat]

var min:double;

for i := 0 to StringGrid1.RowCount - 1 do
begin   
  min:=StrToFloat(StringGrid1.Cells [0,i])
  for j := 1 to StringGrid1.ColCount - 1 do
    if StrToFloat(StringGrid1.Cells [j,i])<min then
      min:=StrToFloat(StringGrid1.cells[j,i]);
end;

[вася радугов]

На строке

min:=StrToFloat(StringGrid1.Cells [0,i]);

выдает ошибку: [Error] Unit1.pas(60): Incompatible types: 'Integer' and 'Extended'
а на строке

  min:=(StringGrid1.cells[j,i]);

ошибка:[Error] Unit1.pas(63): Incompatible types: 'Integer' and 'String'