В прямоугольной матрице A[M,N] увеличить все элементы в 3 раза

Program z1; var A,B: array [1… 100,1… 100] of integer; i,j,m,n: integer; Begin writeln ('введите кол-во строк и столбцов'); read (m,n); writeln ('введите матрицу'); for i: =1 to m do for j: =1 to n do read (A[i,j]); for i: =1 to m do for j: =1 to n do B[i,j]: =A[i,j]*3; for i: =1 to m do begin for j: =1 to n do write (A[i,j]: 4); writeln; end; writeln; for i: =1 to m do begin for j: =1 to n do write (B[i,j]: 4); writeln; end; end.