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

uses crt;
type matr=array[1..100,1..100] of real;
var a,b:matr;
    m,n:integer;
procedure make(m1,n1:integer; var c:matr);
var i,j:byte;
begin
     for i:=1 to n do
     begin
          for j:=1 to m do
          begin
               c[i,j]:=random(100);
               writeln(c[i,j]:3:3)
          end;
          writeln;
     end;
end;
procedure knp(n1,m1:integer; c:matr);
var i,j:byte;
    k:integer;
    np:real;
begin
     k:=0;
     for i:=1 to m1 do
     begin
          np:=[j,1];
          for j:=1 to m1 do
          if c[i,j] (mod 2 = 1) >0 then np:=c[i,j];
          writeln('В строке',i,' ',k+1,' нечетных положительных элементов');
     end;
end;
begin
     writeln('Введите размерность I матр. ');
     read(n,m);
     write('Матр. создана: ');
     make(n,m,a);
     knp(n,m,a);
     writeln('Введите размерность II матр. ');
     read(n,m);
     writeln('Матр. создана ');
     make(n,m,b);
     knp(n,m,b);
end.

uses
  crt;
 
type
  matr = array[1..100, 1..100] of integer; // integer вместо real
 
var
  a, b: matr;
  m, n: integer;
 
procedure make(m1, n1: integer; var c: matr);
var
  i, j: byte;
begin
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      c[i, j] := -50 + random(100);      // добавил в матрицу отрицательных
      write(c[i, j]: 4)                  // write вместо writeln
    end;
    writeln;
  end;
end;
 
procedure knp(n1, m1: integer; c: matr);
var
  i, j: byte;
  k: integer;
                             // удален np (так и не понял - для чего он =)  )
begin
  for i := 1 to n1 do        // n1 вместо m1
  begin
    k := 0;                  // эта строка перемещена внутрь цикла
    for j := 1 to m1 do
      // строка изменена (использовал odd() для определения нечетности)
      // также разделены два условия
      if odd(c[i, j]) and (c[i, j] > 0) then inc(k); 
    writeln('В строке ',i, ' ',k, ' нечетных положительных элементов');
  end;
end;
 
begin
  writeln('Введите размерность I матр. ');
  read(n, m);
  writeln('Матр. создана: ');
  make(n, m, a);
  knp(n, m, a);
  writeln('Введите размерность II матр. ');
  read(n, m);
  writeln('Матр. создана ');
  make(n, m, b);
  knp(n, m, b);
end.