Замінити всі парні елементи матриці одиницею програма pascal Помогите пожалуйста

// PascalABC.NET 3.2, сборка 1356 от 04.12.2016 // Внимание! Если программа не работает, обновите версию! begin   var m:=ReadInteger('Количество строк в матрице:');   var n:=ReadInteger('Количество столбцов в матрице:');   Writeln('*** Исходная матрица[',m,',',n,'] ***');   var a:=MatrRandom(m,n,-50,50);   a.Println(4);   for var i:=0 to m-1 do   for var j:=0 to n-1 do     if a[i,j].IsEven then a[i,j]:=1;   Writeln('*** Результирующая матрица[',m,',',n,'] ***');   a.Println(4); end. Пример Количество строк в матрице: 6 Количество столбцов в матрице: 9 *** Исходная матрица[6,9] ***   23 -23 -25  38  40  38  50  45 -35  -41  31   2  30  37 -30  -9  -8 -28  -12  20 -20  32  29   7  19  23  46  -48 -21 -27  19  10 -17 -20 -27 -47  -39 -11  19 -23   9   6  29 -24 -14    2  -7  37 -22  38  23   5 -33  37 *** Результирующая матрица[6,9] ***   23 -23 -25   1   1   1   1  45 -35  -41  31   1   1  37   1  -9   1   1    1   1   1   1  29   7  19  23   1    1 -21 -27  19   1 -17   1 -27 -47  -39 -11  19 -23   9   1  29   1   1    1  -7  37   1   1  23   5 -33  37