[Free Pascal]: Как вывести значения в виде дополнительного столбца матрицы?

[Jon_Morgan]

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

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.

Не знаю как, не просто выводить средние арифметические, а выводить их как столбец данной матрицы.

[Вадим Мошев]

Сообщение от Jon_Morgan

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

Значений всей матрицы, или каждой строки индивидуально? Что делать, если нет положительных значений?

Совет такой.
Объявите исходную матрицу так, чтобы она содержала на один столбец больше, чем вам нужно.

Заполняйте матрицу как обычно. Далее в программа выполняйте вычисления и выводите полученные значения в ПОСЛЕДНИЙ СТОЛБЕЦ вашей матрицы.