ПОМОГИТЕ СОЗДАТЬ ДВУМЕРНЫЙ МАССИВ! Из случайных чисел от 1 до 30 ...

Дмитрий

Program Program1;vara:array [1..50,1..50] of integer;m,n,i,j:integer;beginrandomize;write('Введите m: ');readln(m);write('Введите n: ');readln(n);for i:=1 to m dobeginfor j:=1 to n dobegina[i,j]:=random(30)+1;write(a[ i, j ]:5);end;writeln;end;end.