Проверьте решение массива.

[ROMA2PVT]

uses
  CRT;
Type
  mas=array [1..100,1..100] of integer;
var
  a:mas;
  b:mas;
  i,j,n,m,imin,jmin,min,sum,k,kol:integer;
  sr:real;

Procedure proizv(kl:mas; Var kl2:mas);
begin
  writeln('Массив после умножения: ');
      for i := 1 to n do
       begin
         for j:=1 to m do
           begin
              kl2[i,j]:=round(kl[i,j]*1.5);
              write(kl2[i,j]:3,'  ');
           end;
           writeln;
       end;
end;

procedure ABSMinEl(Var kl2:mas);
begin
imin:=1;
  jmin:=1;
  min:=kl2[1,1];
  for i:=1 to n do
      for j:=1 to m do
        if kl2[i,j]<min then
              begin
                 min:=kl2[i,j];
                 imin:=i;
                 jmin:=j;
              end;
              writeln;
               writeln('MIN[',imin,';',jmin,']:=',min,' ');
               end;

procedure proizv2(Var kl:mas);
begin
sum:=0;
kol:=0;
  for i:=1 to n do
    for j:=1 to m do
      if kl[i,j]<min then
          begin
            sum:=sum+kl[i,j];
            inc(kol);
          end;
          if kol<>0 then
          begin
          sr:=sum/kol;
          writeln('среднее арифметическое элементов массива G6, меньших чем GSmin:=',sr:1:3)
 end
 else writeln('В массиве нет елементов меньше!!!');
 end;

begin
Clrscr;
Randomize;
write('Введите количество строк: ');
 readln(n);
   write('Введите количество столбцов: ');
     readln(m);
 writeln('Исходная матрица: ');
  for i := 1 to n do
    begin
     for j:=1 to m do
       begin
          a[i,j]:=Random(15);
          write(a[i,j]:2,'  ');
       end;
       writeln;
    end;
writeln;
  proizv(a,b);
writeln;
 ABSMinEl(b);
writeln;
proizv2(a);
readkey;
end.

[ROMA2PVT]

Считает среднеарифметическое и нормально выводит(раз на раз не приходится) всё при 1 строке и 6 столбца и изменениях в программе

TP нормальный скачай и будет нормально считать.