Ввести двумерный массив A N×M . Каждую вторую строку в массиве заменить остатками от деления её элементов на 2. Массив вывести до и после преобразования — Pascal(Паскаль)

const
    n=5;
    m=5;
var
    a:array[1..n,1..m] of integer;
    i,j:word;
begin
    randomize;
    writeln('Ishodniy massiv:');
    for i:=1 to n do
        for j:=1 to m do
        begin
            a[i,j]:=random(50)+1;
            write(a[i,j]:3);
            if j=m then writeln;
        end;
    for i:=1 to n do
        for j:=1 to m do
            if i mod 2 = 0 then
                a[i,j]:=a[i,j] mod 2;
    writeln('Preobrazovanniy massiv:');
    for i:=1 to n do
        for j:=1 to m do
            begin
                write(a[i,j]:3);
                if j=m then writeln;
            end;
    readln;
end.