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

const n=40;
var arr:array[1..n] of integer;
    arr2:array[1..n]of integer;
    min,i,k:integer;
begin
for i:=1 to n do
begin
 arr[i]:=random(10);
 write(arr[i]:2);
end;
writeln;
 
min:=arr[1];
for i:=2 to n do
if arr[i]<min then min:=arr[i];
 
k:=1;
for i:=1 to n do
if arr[i]=min then begin arr2[k]:=i; k:=k+1; end;
 
for i:=1 to k-1 do
 write(arr2[i]:3);
writeln;
end.