Заполнить двумерный массив 5*5 случайными числами. найти суммы нечетных элементов (значение элементов)

uses crt;

const n=5; m=5;

var a:array[1 ... m, 1 ... n] of integer;

b:array[1 ... n] of integer;

i, j:integer;

s:real;

BEGIN

clrscr;

randomize;

for i:=1 to m do

for j:=1 to n do

a[i, j]:=random (10);

For i:=1 to n do

Begin

s:=0; j:=2;

While j<=m do

Begin

inc (s, A[i, j]);

inc (j, 2);

End;

writeln ('Сумма элементов стоящих в чётных столбцах в ', i,' строке = ', s);

End;

End.