Как переделать эту программу, используя массив

var i:integer; 
s:string; 
begin 
i:=strToInt(edit1.text); 
while i>2-1 do Begin 
s:=inttostr(i mod 2)+s; 
i:=i div 2; 
End; 
s:=inttostr(i)+s; 
edit2.Text:=s; 
end; 
 
 
end.

unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
 
type
 TMassByte = array of Byte;
 
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    MassCC2 : TMassByte;
    function ArrToStr(Mass : TMassByte) : string;
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
function TForm1.ArrToStr(Mass: TMassByte): string;
var i: Integer;
begin
Result:='';
 for I := Low(Mass) to High(Mass) do
 Result:=IntToStr(Mass[i]) + Result;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
s:string;
begin
SetLength(MassCC2,1);
j:=0;
i:=strToInt(edit1.text);
while i>1 do
 Begin
 MassCC2[j]:=(i mod 2);
 i:=i div 2;
 Inc(j);
 SetLength(MassCC2, Length(MassCC2)+1);
 End;
 MassCC2[j]:=i;
 
edit2.Text:=ArrToStr(MassCC2);
 
end;
 
end.