Здравствуйте, Sarymian!
Вы можете использовать динамический массив, как это показанно в приложении. Массив может быть квадратным, прямоугольным, треугольным - это без разницы. Динамический массив позволяет в любое время изменить длинну и размерность массива...

Приложение:
varar : array of array of integer;begin SetLength(ar,3); SetLength(ar[0],5); SetLength(ar[1],3); SetLength(ar[2],2); ar[0,0]:=1; ar[0,1]:=2; ar[0,2]:=3; ar[0,3]:=4; ar[0,4]:=5; ar[1,0]:=111; ar[1,1]:=222; ar[1,2]:=333; ar[2,0]:=111111; ar[2,1]:=222222;end;

Здравствуйте, Sarymian!
Добавлю еще, хотя в хелпе об этом не написано, но присвоить размер двумерному динамическому массиву можно за один раз:
<code>
Procedure Mas(n:integer);
var
m: array of array of integer;
Begin
SetLength(m, n, n);
...
End;</code>
Только учтите, что в случае с динамическими массивами начальный индекс массива начинается <b>всегда</b> с 0, поэтому работа с ним будет идти так:
<code>
Procedure Mas(n:integer);
var
m: array of array of integer;
i, j: integer;
Begin
Randomize;
SetLength(m, n, n);
For i:=0 To n-1 do
For j:=0 To n-1 do
ar[i, j]:=Random(15);
...
End;
</code>

Здравствуйте, Sarymian!
Хочу добавить самую малость. Динамические массивы необходимо освобождать самостоятельно. ar:=nil или setlength(ar, 0);

Здравствуйте, Sarymian!
unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }

public
{ Public declarations }

end;

var
Form1: TForm1;

implementation

{$R *.dfm}
Function Mas(n:integer):integer;
type
massiv = array of integer;
var
mass: array of massiv;
i,j: integer;
d:string;
begin

setlength (mass,n,n);
for i:=0 to n-1 do
begin
for j:=0 to n-1 do
begin
mass[i,j]:=random(12);
d:=d+ inttostr(mass[i,j])+ ‘ ‘;
end;
form1.Memo1.Lines.Add(d);
d:=‘‘;
end;
result:=1;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
mas(strtoint(edit1.Text));
end;

end.

попробуй если я правильно понял вопрос то поможет
если будут вопросы пиши на аську 458786618

Здравствуйте, Sarymian!
Попробуй использовать динамический массив.