ПОМОГИТЕ СОЗДАТЬ ДВУМЕРНЫЙ МАССИВ!

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.