Дана матрица размером M на N. Найти сумму элементов каждой нечётной строки

Var
  x: Array[1..10,1..10] of Integer;
  i,j,n,m,s: Integer;
BEGIN
Repeat
 Writeln('Введите размеры массива: ');
 Readln(m,n);
until n<>m;
Randomize;
For i:=1 to m do
begin
  For j:=1 to n do
  begin
    x[i,j]:=Random(51)-25;
    Write(x[i,j]:4);
  end;
  Writeln
end;
For i:=1 to m do
begin
  If i mod 2<>0 Then
  begin
    For j:=1 to n do
    s:=s+x[i,j];
    Writeln('Сумма элементов ',i,' строки = ',s);
  end;
  s:=0;
end;
Readln
END.

Var a:array[1..100,1..100] of integer;
      sum:array[1..100] of integer;
      N,M,i,p:integer;
Begin
p:=0;
for i:=1 to N do
  for j:=1 to M do
   read(a[i,j]);
for i:=1 to N do
 begin
 if i mod 2 =1 then {odd, <>0}
                   begin
                    p:=p+1; 
                     for j:=1 to M do
                       begin
                       sum[p]:=a[i,j]+sum[p]; {Заносим в другой массив сумму нечетной строки}
                        end;
                   end;
end; 
for i:=1 to p do {Выводим суммы}
write(sum[i],' '); {если будут проблемы с символами, при желании можно подкорректировать}
writeln;
end.