Frame

[sv2311]

Помогите пожалуйста с кодом((

1.Разработать дополнение с фреймом!
2.Обеспечить просмотр исходного и преобразованного массивов.

В ОДНОМЕРНОМ МАССИВЕ ПОМЕНЯТЬ МЕСТАМИ НАИБОЛЬШИЙ И НАИМЕНЬШИЙ ЭЛЕМЕНТЫ!

-- Вс май 17, 2009 14:49:12 --

Вот мой код - но вот он только меняет местами лишь тогда когда(покажу так):
если 1 2 3 4 5 то оно делает правильно, а именно 5 2 3 4 1,но если вводить к примеру так 4 5 1 56 2 5(должно выйти так 4 5 56 1 2 5) то прога ни чего не делает!!что делать?

procedure TNewFrame.Button1Click(Sender: TObject);
begin
edit2.clear;
str :=edit1.Text;
index:=1;
n := 0;
for i := 1 to length(str) do
 begin
  if str[i] = ' ' then
  begin
  inc(n);
   if i - index = 1 then
     a[n] := StrToInt(str[index])       else
     a[n] := StrToInt(copy(str,index,i - index));
   index := i + 1;
   end;
 end;
   max := a[1];
  for i:=1 to n do
   if a[i] > max then
    begin
     max := a[i];
     imax := i;
     end;

       min := a[2];
  for i:=1 to n do
   if a[i] < min then
    begin
     min := a[i];
     imin := i;
    end;
  new:=a[imax];
  a[imax]:=a[imin];
  a[imin]:=new;
  for i:=1 to n do
  edit2.Text := edit2.Text + intToStr(a[i])+ ' ';

end;

-- Вс май 17, 2009 14:55:44 --

все уже не нужно!