[Alegun]

Сообщение от Grynyuk

...в массиве поменять местами 1 и мин элемент...использовать вместо стринггрид мемо для ввода и листбокс для вывода...

Код:

var
  mass: array of integer;
  min:  array [0..1] of integer;

procedure TForm1.Button1Click(Sender: TObject);
var
 i, tmp: integer;
 sl: TStringList;
begin
 sl:= TStringList.Create;
 sl.DelimitedText:= Memo1.Text;
 sl.Delimiter:= ',';

 SetLength(mass, sl.Count);

 for i := 0 to sl.Count-1 do
  mass[i]:= StrToInt(sl.Strings[i]);

 sl.Free;

 min[0]:= mass[0];
 min[1]:= 0;

 for i := 0 to High(mass) do
  begin
   tmp:= mass[i];
   if tmp < min[0] then
    begin
     min[0]:= tmp;
     min[1]:= i;
    end;
  end;

 tmp:= mass[1]; 
 mass[1]:= min[0];
 mass[min[1]]:= tmp;

 for i := Low(mass) to High(mass) do
  ListBox1.Items.Add(inttostr(mass[i]));
end;