Дана матрица размера а x б. Найти суммы элементов всех ее четных строк и нечетных столбцов — Pascal(Паскаль)

program Zadanie_2;

const
  Stroki = 4;
  Stolb = 3;

var
  Matrix: array [1 .. Stroki, 1 .. Stolb] of integer;
  i, j, SumStrok, SumStolb: integer;

begin
  WriteLn('Введите матрицу(', Stroki, 'x', Stroki, '):');
  SumStrok := 0;
  SumStolb := 0;
  for i := 1 to Stroki do
    for j := 1 to Stolb do
      Read(Matrix[i, j]);
  for i := 1 to Stroki do
    for j := 1 to Stolb do
    begin
      if (i mod 2) = 0 then
        SumStrok := SumStrok + Matrix[i, j];
      if (j mod 2) <> 0 then
        SumStolb := SumStolb + Matrix[i, j];
    end;
  WriteLn('Сумма чётных строк=', SumStrok);
  WriteLn('Сумма нечётных столбцов=', SumStolb);
  ReadLn;

end.