Добавить к матрице столбец, состоящий из средних арифметических положительных значений матрицы

program main;
uses crt;
type matr=array [1..6,1..8] of integer;
var a:matr; i, j, sum, isum: integer;
begin
clrscr; randomize;
  for i:=1 to 6 do begin
  sum:=0;
  isum:=0;
  for j:=1 to 8 do begin
    a[i,j]:=random(100)-50; {ввод матрицы}
    write (a[i,j], ' '); {вывод матрицы}
     //__Действие над матрицей__
       if a[i,j]>0 then begin {нахождение всех положительных в строке}
          sum:=sum+a[i,j]; {сумма положительных}
          isum:=isum+1; {количество положительных}
          end;
          end;
    writeln (' - ', sum/isum:3:2); {вывод ср. арф. каждой строки}
    end;
readln;
end.

program main;
uses crt;
const m=6;
      n=8;
type matr=array [1..m,1..n+1] of real;
var a:matr;
    sum:real;
    i,j,isum:byte;
begin
clrscr;
randomize;
for i:=1 to m do
 begin
  sum:=0;
  isum:=0;
  for j:=1 to n do
   begin
    a[i,j]:=-5+10*random;
    if a[i,j]>0 then
     begin
      sum:=sum+a[i,j]; {сумма положительных}
      isum:=isum+1; {количество положительных}
     end;
   end;
  if isum=0 then a[i,n+1]:=0
  else a[i,n+1]:=sum/isum;
 end;
writeln('Матрица');
writeln(' ':n*5,'Ср.ар.плж.');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:5:2);
  writeln(a[i,n+1]:7:2);
 end;
readln;
end.