Замінити всі парні елементи матриці одиницею програма 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

1)b 2)b 3)d 4)a 5)c по моему так будет, если не ошибаюсь