Сформировать двумерный массив а размером 6*8 с генератора случайных чисел и вывести элементы массива на экран. найти средние значения элементов каждой строки матрицы и записать их в одномерный массив в. вывести элементы массива в на экран

Program z12;  const n = 8;  const m = 6;  Var a: array [1..n,1..m] of integer;       b: array [1..n] of integer;       i,j,sr:integer;Begin  for i:=1 to n do    for j:=1 to m do      a[i,j]:= random(10);    for i:=1 to n do  begin    for j:=1 to m do      write(a[i,j],'  ');    writeln;    end;    for i:=1 to n do  begin    sr:=0;    for j:=1 to m do      sr:= sr + a[i,j];    b[i]:= sr;  end;        for i:=1 to n do    write(b[i], '  ');  End.