Для заданной целочисленной матрицы a(n,m) проверить, делится ли сумма её элементов на 3 и на 7, и вывести на печать соответствующий текст

// pascalabc.net 3.2, сборка 1379 от 21.01.2017 // внимание! если программа не работает, обновите версию! begin   var m: =readinteger('количество строк в матрице: ');   var n: =readinteger('количество столбцов в матрице: ');   writeln('*** исходная матрица [',m,',',n,'] ***');   var a: =matrrandom(m,n,-99,99);   a.println(4); writeln(4*a.colcount*'-');   if a.rows.selectmany(x-> x).sum mod 21=0 then       writeln('сумма элементов одновременно делится на 3 и на 7')   else       writeln('сумма элементов одновременно не делится на 3 и на 7') end. примеры количество строк в матрице: 4 количество столбцов в матрице: 7 *** исходная матрица [4,7] ***   73 -53  69 -94 -38  50  30   -9  63  54  28 -56  68  21   -97  18 -80  68  86 -27  -3   33 -30 -17    6 -69 -95 -81 сумма элементов одновременно не делится на 3 и на 7 количество строк в матрице: 5 количество столбцов в матрице: 4 *** исходная матрица [5,4] ***   -53  14  50  52   -81  55  14 -89   99 -53  37  96   73  27  -8 -85     0  -8  46  50 сумма элементов одновременно не делится на 3 и на 7

Программа без использования массива: var   i, n, a, max, max2: integer; begin   write('введите количество чисел: ');   read(n);   write('введите числа: ');   for i : = 1 to n do   begin       read(a);       if a > max then       begin           max2 : = max;           max : = a;       end;   end;   writeln('два наибольших значения - ', max2, ' и ', max); end. пример работы программы: введите количество чисел: 6 введите числа: 12 15 5 7 23 7 два наибольших значения - 15 и 23