Подсчитать общее число неотрицательных элементов в массиве

program p4;
const k=8; n=3;
var c:array [1..k,1..n] of integer;
i,j,s, p:integer;
begin
for i:=1 to k do
for j:=1 to n do
begin
write('Vvedite  c[',i,',',j,']=');
readln(c[i,j]);
end;

program p4;
uses crt;
const k=8; n=3;
var c,b:array [1..k,1..n] of integer;
    i,j,s:integer;                        //с - для счета неотрицательных
begin
s:=0;                                      //изначально количество неотрицательных равно нулю
for i:=1 to k do                           //задаю цикл для заполнения строк и столбцов
    for j:=1 to n do
        begin
        write('Vvedite c[',i,',',j,']=');
        readln(c[i,j]);                     //считываю в память элемент в строке i в столбце j
        if c[i,j]>=0 then s:=s+1;           //если элемент массива больше или равен нулю, увеличиваю количество неотрицательных на 1
        b[i,j]:=c[i,j]*(-1);                //сразу же заполняю матрицу б противоположными по знаку элементами (для чего умножаю элемент на -1)
        end;
writeln ('Neotruzatelnyh ',s);              //вывожу сообщение о количестве нетрицательных
writeln ('Massiv C');
for i:=1 to k do                            //задаю цикл для вывода матрицы с
    begin
    for j:=1 to n do
        write(c[i,j]:4);
    writeln;
    end;
writeln ('Massiv B');                        //задаю цикл для вывода матрицы и
for i:=1 to k do
    begin
    for j:=1 to n do
        write(b[i,j]:4);
    writeln;
    end;
readln;
end.