Дан двумерный массив размерностью n*m. Уменьшить в два раза все четные элементы массива.(Помогите сделать программу на паскале).

const NN=50;vara:array [1..NN,1..NN] of integer;i,j,m,n:integer;begin  write('Введите n: ');  readln(n);  write('Введите m: ');  readln(m);  for i:= 1 to n do    for j:= 1 to m do      readln(a[i,j]); for i:= 1 to n do    for j:= 1 to m do      if a[i,j] mod 2 =0 then a[i,j]:=a[i,j] div 2; for i:= 1 to n do begin    for j:= 1 to m do      write(a[i,j],' ');    writeln; end; end.