10 класс! ПАСКАЛЬ АБС! СРОЧНО!

var a: array[1… 100, 1… 100] of real; n, m, i, j: integer; Sr: real; begin write ('Введите количество строк матрицы '); readln (m); write ('Введите количество столбцов матрицы '); readln (n); writeln ('Исходный массив: '); Sr: =0; for i: =1 to m do begin for j: =1 to n do begin a[i, j]: =random (101) — 50; write (a[i, j]: 5:0); Sr: =Sr+a[i, j]; end; writeln; end; Sr: =Sr / (n*m); writeln ('Среднее арифметическое равно ', Sr); writeln ('Элементы больше среднего арифметического: '); for i: =1 to m do for j: =1 to n do if a[i, j] > Sr then writeln ('a[', i, ', ', j, ']=', a[i, j]); end.