Найти сумму всех элементов двумерного массива, больших первого элемента этого массива? язык программирования -- паскаль.

Const     n = 3;     m = 4; var     a: array[1..n,1..m] of integer;     i,j: integer;     s: real; begin randomize; s: =0; writeln('исходный массив: '); for i: = 1 to n do       begin       for j: = 1 to m do               begin               a[i,j]: =random(21)-10;               write(a[i,j]: 4)               end;       writeln       end; for i: = 1 to n do       for j: = 1 to m do               if a[i,j]> a[1,1] then s: =s+a[i,j]; writeln('s = ',s); end.

// pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! begin   var n: =readinteger('количество строк в массиве: ');   var m: =readinteger('количество столбцов в массиве: ');   writeln('*** исходный массив [',n,',',m,'] ***');   var a: =matrrandom(n,m,-99,99);   a.println(4); writeln(4*a.colcount*'-');   var a1: =a[0,0];   writeln('s=',a.elementsbyrow.skip(1).where(x-> x> a1).sum) end. пример количество строк в массиве: 4 количество столбцов в массиве: 5 *** исходный массив [4,5] ***   35  24  93 -58 -89   -51 -55 -83  49 -92   -90  89  68  28 -60   46 -57  53 -78 -42 s=398