[TheVenom]

вот что у меня получилось

Код:

procedure TForm1.BitBtn2Click(Sender: TObject);
var
  byteArray  : Array of integer;
  i:integer;
  min1,x1,yy1,z1: Integer;
begin
  SetLength(byteArray, 5);
  byteArray[0] := StrToInt(Edit1.Text);
  byteArray[1] := StrToInt(Edit2.Text);
  byteArray[2] := StrToInt(Edit3.Text);
  byteArray[3] := StrToInt(Edit4.Text);
  byteArray[4] := StrToInt(Edit5.Text);
  z1:=0;
  repeat
    min1 := 0;

    for I := 1 to (Length(byteArray)-1) do
      if byteArray[i] < byteArray[min1] then
        min1 := i;

    x1 :=  StrToInt(Edit21.Text);

    case min1 of
      0 :
      begin
        Edit1.Color := clLime;
        yy1 :=  StrToInt(Edit16.text);
        z1 := x1 - yy1 - z1;
      end;
      1 :
      begin
        Edit2.Color := clLime;
        yy1 :=  StrToInt(Edit17.text);
        z1 := x1 - yy1 - z1;
      end;
      2 :
      begin
        Edit3.Color := clLime;
        yy1 :=  StrToInt(Edit18.text);
        z1 := x1 - yy1 - z1;
      end;
      3 :
      begin
        Edit4.Color := clLime;
        yy1 := StrToInt(Edit19.text);
        z1 := x1 - yy1 - z1;
      end;
      4 :
      begin
        Edit5.Color := clLime;
        yy1 := StrToInt(Edit20.text);
        z1 := x1 - yy1 - z1;
      end;
    end;

    for I := min1 to Length(byteArray) - 2 do
      byteArray[i] := byteArray[I + 1];

    SetLength(byteArray, Length(byteArray) - 1);

    if z1 <= 0 then Break;
  until True;
  Label16.Caption:= IntToStr(z1);
end;

что здесь не так?