проблема с динамическим массивом

[kommunist]

обрый вечер товарищи программисты у меня программа должна спрашивать сколько строк и столбцов а затем выводить матрицу, но вся проблема в том что программа неправильно выводит количество строк посмотрите в чем дело а то я уже голову сломал.

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type matrica = array of array of integer;
var  a:matrica;
     i:integer;
     j:integer;
     n,m:integer;
begin
writeln('vvedite kolichestvo strok massiva:');
readln(n);
writeln('vvedite kolichestvo stlobcov massiva:');
readln(m);
writeln;
randomize;
for i:= 1 to n do
begin

for j:= 1 to m do
begin
  setlength(a,n,m);

a[i,j]:=random(10);
write(a[i,j],' ');
end; 
writeln;
end;
readln;
end.

Заранее спасибо. С уважением kommunist.

[_Dmitry]

Поставь setlength(a,n,m); перед циклами. Индексация с нуля: 0..n-1, 0..m-1

[kommunist]

а все понятно спасибо тебе огромное _Dmitry!
кстати а чо в pascal ет динамических массивов?
а то я когда объявлял выскочила ошибка

[_Dmitry]

В паскале динамических массивов нет, но у тебя же программа в Delphi для консоли, здесь можешь их использовать.

[kommunist]

ясно, а в как быть в pascal'е если неизвестно размерность массива?

[_Dmitry]

Объявлять статический массив с запасом или размещать массив нужного размера в динамической памяти (в "куче")

[mutabor]

Динамические массивы появились в Дельфи3. Как-то же раньше обходились