Помогите пожалуйста с информатикой…

var a: array[1… 10, 1… 10] of integer; i, j, m, n: integer; s: real; begin readln (m, n); for i: =1 to m do begin s: =0; for j: =1 to n do begin a[i, j]: =random (50); write (a[i, j]: 3); if (i mod 2)=1 then s: =s+a[i, j] end; if (i mod 2)=1 then write (' среднее ', a[i, j] / n: 8:2); writeln; end; end.