program Project;
const
  M = 6;
  N = 7;
var
  a: array[1..M, 1..N] of integer;
  k, S, maximum, valueOfNumber: integer;
  SrAr: real;
begin
  Write('Введите k-ю строку: ');
  Readln(k);
  if k > M then // если строка вылетает за границы, то закрываем прогу
    exit
  else
    for var i := 1 to M do // проходимся по строкам
      begin
        Writeln;
        for var j := 1 to N do // проходимся по столбцам
          begin
            a[i][j] := Random(100) - 49; // рандом [-50; 50]
            SrAr := SrAr + a[i][j]; // среднее арифм. строки
            Write(a[i][j] + Chr(9)); // выводим массив
            if i = k then // сумма элементов k-й строки
              begin
                S := S + a[k][j];
                if a[k][j] > 0 then // количество неотрицательных элементов
                  Inc(valueOfNumber);
              end;
          end;
        Write(Chr(9) + '[Среднее арифметическое: ' + SrAr/7.0 + ']');
      end;
    Writeln(Chr(10) + Chr(10) + 'Сумма k-й строки: ' + S);
    Writeln(Chr(10) + 'Количество положительных элементов k-й строки: ', valueOfNumber);
Writeln;    
  for var i := 1 to N do // вывод максимального числа в столбце
    begin
      maximum := a[1][i];
      for var j := 1 to M do
        begin
          if a[j][i] > maximum then
            maximum := a[j][i];
        end;
      Write('[Max: ' + maximum + ']' + Chr(9));
    end;
end.