Дана вещественная матрица А 6х8. Добавить к матрице столбец, состоящий из средних арифметических положительных значений строк матрицы.- Pascal(Паскаль)

const n=6;
      m=8;
var arr:array[1..n,1..m+1] of integer;
    i,j:integer;
begin
 for i:=1 to n do
 begin
  for j:=1 to m do
  begin
   arr[i,j]:=random(100);
   write(arr[i,j]:3);
  end;
  writeln;
 end;
 
 for i:=1 to n do
 begin
  arr[i,m+1]:=0;
  for j:=2 to m do
  begin
   if arr[i,j]>0 then inc(arr[i,m+1],arr[i,j])
  end;
 end;
 
 for i:=1 to n do
 begin
  for j:=1 to m do
   write(arr[i,j]:3);
  writeln(arr[i,m+1]:4);
 end;
end.