Найти сумму элементов всех нечетных строк и четных столбцов матрицы

PROGRAM sum; 
 
var 
i,j,sum1,sum2,n,m:integer; 
a:array[1..30,1..30] of integer; 
BEGIN
  writeln('Vvedite kol-vo strok'); readln(n);
  writeln('Vvedite kol-vo stolbcov'); readln(m);
  
   for i:=1 to n do 
   begin 
   for j:=1 to m do 
   begin 
     a[i,j]:=random(20)-10; 
     write(a[i,j]:3, ' '); 
   end; 
   writeln; 
   end; 
   writeln('--------------'); 
   
   sum1:=0; sum2:=0;
   for j:=1 to m do
   begin 
   for i:=1 to n do 
   begin
     if i mod 2<>0 then 
     sum1:=sum1+a[i,j]; 
   end;
   end; 
     
   for i:=1 to n do
   begin 
   for j:=1 to m do 
   begin
     if j mod 2=0 then 
     sum2:=sum2+a[i,j];  
   end;
   end;
   
   writeln('Summa elementov nechetnih ctrok = ',sum1); 
   writeln('Summa elementov chetnih stolbcov = ',sum2);
   
END.