помогите плиз в Delphi

[mifodiy]

unit Unit6;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm6 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
mas:array[1..100] of integer;
end;

var
Form6: TForm6;
flag:boolean=true;
kolEl:integer;
number:integer=1;

implementation

{$R *.dfm}

procedure TForm6.Button1Click(Sender: TObject);
begin
if flag then begin
flag:=false;
kolEl:=StrToInt(Edit1.Text);
Label1.Caption:= '1';

end
else begin
mas[number]:=StrToInt(Edit1.Text);
inc(number);

end;
if number>kolEl then begin
showmessage('vse!');
form6.Close;
end
else
Label1.Caption:=IntToStr(number)+' element';

end;

end.

вот этод код делает (выводит на экран форму с Edit и кнопку при вводе в эдит числа он в этой же форме меняет лэйбл с надписью введите первый элемент второй и т.д и записывается это все в масив)а мне нужно чтоб сначало спрашивалось скока элементов масива (создаем отдельный масив). потом спашивается размерность следуещего масива и таких масивов должнобыть стока сколько мы указали в первый раз!

плиз помогите оч надо!!!!!!