Работа с массивами в 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 и кнопку при вводе в эдит числа он в этой же форме меняет лэйбл с надписью введите первый элемент второй и т.д и записывается это все в масив)а мне нужно чтоб сначало спрашивалось скока элементов масива (создаем отдельный масив). потом спашивается размерность следуещего масива и таких масивов должнобыть стока сколько мы указали в первый раз!

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

[Snoopy]

Что мешает создать динамические массивы
Двумерный динамический массив целых чисел:
A: array of array of Integer;
При выделении памяти для многомерного динамического массива use функция
SetLength()
A будет массивом целых чисел размерностью 5 x 5
SetLength(A, 5, 5);
Обращение к элементам многомерного динамического массива ничем не отличается от обращения к элементам обычного массива:
A[0,3] := 28;