Для заданной матрицы образовать ряд, состоящий из номеров столбцов, в которых среднее арифметическое > последнего элемента и прибавить к элементам этих столбцов произведения первого на последний элемент матрицы — Pascal(Паскаль)

const n=5;
      m=5;
var k,i,j,sum:integer;
    arr:array[1..n,1..m] of integer;
    arr2:array[1..m] of 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;
 
k:=0;
for j:=1 to m do
begin
 sum:=0;
 for i:=1 to n do
  sum:=sum+arr[i,j];
 if sum/m>arr[n,j] then begin inc(k); arr2[k]:=j; end;
end;
arr2[k+1]:=arr[1,1]*arr[n,m];
 
for i:=1 to m do
 write(arr2[i]:4);
 
end.