Найти ошибку в поиске среднего арифметического элементов массива - Turbo Pascal

Формулировка задачи:

не могу понять где я в коде ошибку сделал код работает, а препод говорит иди думай где ошибся, и что то вообще не допру в чём ошибка

Program lab1;
Var X: array[1..100] of  real;
i, n, k: integer;
s,sred: real;
Begin
Write ('Введите размерность массива n=');
Readln (n);
s:=0;
k:=0;
For i:=1 to n do
begin
write ('x[',i,']=');
 readln (x[i]);
 end;
  For i:=1 to n do
  if x[i]=0 then
  Begin
  k:=i;
  break;
end;
 if k=0 then
 write ('Нулевого элемента нет','':3)
 else
write ('Предшествующий первому нулевому элементу число =',x[k-1],'':3);
For i:=1 to k-1 do
s:=s+x[i];
sred:=s/(k-1);
writeln('Cреднее арифметическое  элементов: ',sred);
End.

и если не трудно кому, помогите с двухмерными массивами, я эту тему вообще пропустил и не пойму как правильно написать Дан массив X(N,M) Среди элементов четных строк массива определить Л - кол-во отрицательных элементов. как вообще определить кол-во отрицательных элементов ??? помогите написать

Решение задачи: «Найти ошибку в поиске среднего арифметического элементов массива»

Листинг программы

s:=0; p:=1;
for i:=1 to n do for j:=1 to m do
  if x[i,j]<>0 then begin
    s:=s+x[i,j]; p:=p*x[i,j];
  end;

Объяснение кода листинга программы

Переменная s инициализируется значением 0.
Переменная p инициализируется значением 1.
Затем происходит цикл, который выполняется n раз (где n - это некоторое число).
Внутри цикла выполняется еще один цикл, который также выполняется m раз (где m - это еще одно число).
Внутри второго цикла проверяется условие: если элемент x[i,j] не равен нулю, то выполняется следующая последовательность действий:
- Переменная s увеличивается на значение x[i,j].
- Переменная p умножается на значение x[i,j].
Цикл завершается после выполнения n*m итераций.
Значение переменной s является искомым средним арифметическим.
Значение переменной p - это произведение всех элементов массива x[i,j], где i и j оба равны 1.
Код не содержит вложенных списков.