В массиве определить количество положительных чисел и чисел, принадлежащих интервалу

writeln('Символы цифр в строке');
k:=0;
for i:=1 to length(s) do
if s[i] in ['0'..'9'] then
 begin
  k:=1;
  write(s[i],' ');
 end;
writeln;
if k=0 then writeln('В строке нет цифр');

program nt;                   (*nt=Задана матрица Z(5, 4). Найти в каждой*) 
(*строке, если там есть отрицательные элемент, среднее арифметическое всех*) 
(*элементов, исключая нулевые и записать эти значения в массив B*)
const
 N=5;
 m=4;
 h=5;
 Var 
 Z: array [1..N, 1..m] of integer;
 B: array [1..h, 1..h] of integer;
  i,j: integer;       (*индексы массива*)
    mn:integer;
begin
 writeln('исходный массив Z');
  for i:= 1 to N do  (*цикл перебора всех строк*)
  begin
   for j:=1 to m do (* перебор всех элементов строки по столбам*)
    begin
     Z[i,j]:=random(10);  (* вводим случайно в i-ой строке b j-ом cтолбце*)
     write(Z[i,j]:3,' ');
    end;
    writeln('') 
  end;
write('ОТРИЦ ЧИСЛА В МАССИВЕ=');
for i:= 1 to n do;
begin
for j:=1 to m do;
дальше сам переклин в мосге
end;      
writeln('результирующий массив B');
 for i:= 1 to h do  (*цикл перебора всех строк*)
  begin
   for j:=1 to h do (* перебор всех элементов строки по столбам*)
    begin
     write(B[i,j]:3,' ');
    end;
    writeln('') 
  end;
end.

program nt;                   (*nt=Задана матрица Z(5, 4). Найти в каждой*)
(*строке, если там есть отрицательные элемент, среднее арифметическое всех*)
(*элементов, исключая нулевые и записать эти значения в массив B*)
uses crt;
const
 N=5;
 m=4;
Var Z: array [1..N, 1..m] of integer;
    B: array [1..n] of real;
    i,j,k,p: integer;       (*индексы массива*)
    f:boolean;
begin
randomize;
writeln('исходный массив Z');
for i:= 1 to N do
 begin
  for j:=1 to m do
    begin
     Z[i,j]:=random(10)-2;  (* вводим случайно в i-ой строке b j-ом cтолбце*)
     write(Z[i,j]:4);
    end;
    writeln
  end;
k:=0;
for i:=1 to n do
 begin
  f:=false;
  j:=1;
  while(j<=m) and not f do
  if z[i,j]<0 then f:=true
  else j:=j+1;
  if f then
   begin
    k:=k+1;
    b[k]:=0;
    p:=0;
    for j:=1 to m do
    if z[i,j]<>0 then
     begin
      b[k]:=b[k]+z[i,j];
      p:=p+1;
     end;
      b[k]:=b[k]/p;
   end;
 end;
if k=0 then write('В матрице нет отрицательных элементов!')
else
 begin
  writeln('Среднее арифметическое в строках с отрицательными элементами(без учета 0):');
  for i:= 1 to k do
  write(B[i]:5:2);
 end;
end.