В двумерном массиве нечетные элементы увеличить на 10, а остальные уменьшить на 10

Const n=4; m=5;

var a:array[1 ... n, 1 ... m] of integer;

i, j:integer;

begin

Randomize;

writeln ('Исходный массив:') ;

for i:=1 to n do

begin

for j:=1 to m do

begin

a[i, j]:=random (51) ;

write (a[i, j]:4) ;

end;

writeln;

end;

writeln;

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]+10 else a[i, j]:=a[i, j]-10;

writeln ('Измененный массив:') ;

for i:=1 to n do

begin

for j:=1 to m do write (a[i, j]:4) ;

writeln;

end;

end.

Пример:

Исходный массив:

7 49 39 28 43

27 26 10 25 20

34 0 1 0 24

18 36 42 21 39

Измененный массив:

17 59 49 18 53

37 16 0 35 10

24 - 10 11 - 10 14

8 26 32 31 49