Написать программу, которая вычисляет среднее арифметическое его элементов двумерного массива по строкам.

uses crt;
const nmax=15;                                //константой задан максимально возможный размер матрицы
var a: array [1..nmax,1..nmax] of integer;    //тип - матрица
    n,m,i,j: byte;                            //переменные для количества строк, столбцов, счетчики
    sum: integer;                             //переменная для суммы
    
begin
repeat                                        //в цикле с постусловием
write('Количество строк, не более ',nmax,', n='); readln(n);  //запрашиваю количество строк
until n in [1..nmax];                         //проверяю, чтобы было не больше максимально возможного
repeat                                        //то же для колличества столбцов
write('Количество столбцов, не более ',nmax,', m='); readln(m);
until m in [1..nmax];
write('Матрица');                             //заголовок таблицы
for i:=1 to (m*4)-4 do write(' ');
writeln('Ср.арифм.');
for i:=1 to n do                              //в цикле с параметром для строк
    begin
    sum:=0;                                   //сумма каждой строки изначально равна 0
    for j:=1 to m do                          //в цикле с параметром для элементов строки
        begin
        a[i,j]:=random(199)-99;              //элементу матрицы присваиваю случайное значение в диапазоне от -99 до 99
        write(a[i,j]:4);                     //выводу на экран на поле размером в 4
        inc(sum,a[i,j]);                     //увеличиваю сумму элементов строк на значение данного элемента
        end;
    writeln(sum/m:10:2);                     //вывожу с отступом сумму элементов. деленное на количество элементов в строке
    end;
end.