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

Дан двумерный массив A(n×m) . Найти среднее арифметическое отрицательных элементов в последней строке матрицы.

uses crt;
const n=15;
m=10;
var
  a: array [1..n,1..m] of integer;
  i,j,k: integer;
  s:real;
begin
write ('Сам массив А');
writeln;
for i:=1 to n do
for j:=1 to m do
a[i,j]:=random(100)-40;
for i:=1 to n do
begin
for j:=1 to m do
begin
write (a[i,j]:4);
end;
writeln;
end;
for i:=n to n do
for j:=1 to m do
if a[i,j]<0 then begin
s:=s+a[i,j];
k:=K+1;
end;
s:=s/k;
writeln('Среднее арифметическое отрицательных элементов в последней строке матрицы = ',s:0:1);
end.

Источник