Program massiv; var a: array [1..50,1..50] of real; i,j,m,n: integer; begin writeln ('ввод количество строк'); read (n)

Program massiv; var a: array [1..50,1..50] of real; i,j,m,n: integer; begin writeln ('ввод количество строк'); read (n); writeln ('ввод количество столбцов'); read (m); for i:=1 to n do begin for j:=1 to m do a[i,j]:=random(10); write (a[i,j]:5); end; end. Как сделать матрицу? помогите,пожалуйста