Pascal. Написать программу в которой нужно в двухмерном массиве 5*4 для каждой нечетной строки определить сумму элементов

Pascal: const m=5; n=4; var i, j, s:integer; a:array[1 ... m, 1 ... n] of integer; begin randomize; writeln ('Массив'); for i:=1 to m do begin for j:=1 to n do begin a[i, j]:=random (50); write (a[i, j]:3); end; writeln; end; writeln ('Суммы элементов в нечетных строках'); i:=1; while i<=m do begin s:=0; for j:=1 to n do s:=s+a[i, j]; writeln ('Строка ', i,'=', s); i:=i+2; end; end.