переделать массив из статического в динамический

[Saka]

Незнаю как переделать в коде массив из статического в динамический
вот код:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  n = 4;
var
  mas: array[1..n, 1..n] of byte;
  i, j, m: byte;

begin
    { TODO -oUser -cConsole Main : Insert code here }
  randomize;
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      mas[i, j] := random(10);
      write(mas[i, j]:2)
    end;
    writeln
  end;
  m := mas[2, 1];
  for i := 1 to n do
  for j := 1 to i - 1 do if mas[i, j] > m then m := mas[i, j];
  writeln('Max = ', m);
  readln
end.

[psycho-coder]

Сначала объявить массив

mas: array of Byte;

Затем инициализировать его

SetLength(mas, n);

[Saka]

а где точно его надо инициализорвать?

[psycho-coder]

Объявлять в var, где обычные массивы, а инициализировать в коде между begin и end. Но до начала его использования!

[Saka]

а разве индексы менять не надо? у стат

for i:=1 to n do

а у динам

for i:=0 to n-1 do

или ошибаюсь?

[Saka]

и ругается с random [DCC Error] Project2.dpr(22): E2010 Incompatible types: 'Dynamic array' and 'Integer'

[psycho-coder]

Все верно, нужно менять.
адд
Массив то двумерный. Тогда так объяви

mas: array of array of Integer;
// инициализация
SetLength(mas, n, n);

[Saka]

Сообщение от Saka

и ругается с random [DCC Error] Project2.dpr(22): E2010 Incompatible types: 'Dynamic array' and 'Integer'

а с этим че делать?

[Saka]

так?

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  n = 4;
var
  mas: array of array of byte;
  i, j, m: byte;

begin
    { TODO -oUser -cConsole Main : Insert code here }
 setlength(mas,n,n);
  randomize;
  for i := 0 to n-1 do
  begin
    for j := 0 to n-1 do
    begin
      mas:= random(10); //ошибка [DCC Error] Project2.dpr(22): E2010 Incompatible types: 'Dynamic array' and 'Integer'
      write(mas[i, j]:2)
        end;

    writeln
  end;
           SetLength(mas,n);
  m := mas[2, 1];
  for i := 1 to n do
  for j := 1 to i - 1 do if mas[i, j] > m then m := mas[i, j];
  writeln('Max = ', m);
  readln
end.

[Saka]

так можно или нельзя использовать динамический массив с рандомом?