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