Заполнить двумерный массив 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;BEGINclrscr;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.