Найти среднее арифметическое отрицательных элементов по каждой строке матрицы

program Project1;
const
  maxrow = 10;
  maxcol = 10;
var
  EG: array[1..maxrow,1..maxcol] of integer; { Переменная для хранения массива.}
  x: array[1..maxrow] of real; { Переменная для хранения массива}
  n,m: integer; { Переменные для хранения значения строк и столбцов двумерного массива. }
  i,j: integer; { Вспомогательные переменные для организации циклов.}
  s: integer; { Переменная для хранения значения суммы}
  k: integer; { Переменная для хранения значения количества найденных элементов}
begin
  m:= 5;
  n:= 3;
  for i:= 1 to m do
    for j:= 1 to n do
    begin
      write('Введите значение элемента [',i,',',j,']: ');
      Readln(EG[i,j]);     { Ввод значений в двумерный массив.}
    end;
  writeln('Исходный массив: ');
  for i:= 1 to m do
    begin
      for j:= 1 to n do
        write(EG[i,j]:5);    { Вывод двумерного массива в консоль.}
      Writeln;
    end;
  for i:= 1 to m do
    begin
      s:= 0;
      k:= 0;
      for j:= 1 to n do
        if EG[i,j] < 0 then  {Условие для поиска элементов с отрицательным значением}
          begin
            s:= s + EG[i,j]; { Вычисление суммы найденных элементов}
            inc(k);          { Подсчет найденных элементов}
          end;
      if k = 0 then          { Условие для проверки существования отрицательных элементов}
        x[i]:= 0             { если элементы не найдены, элементу массива присваиватся нуль}
      else
        x[i]:= s/k;
    end;
  writeln('Среднее арифметическое отрицательных элементов каждой строки:');
  for i:= 1 to m do
    if x[i] = 0 then
      writeln('В строке ',i,' нет отрицательных элементов')
    else
      writeln (x[i]:0:2);
  Readln;
end.