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

const
  MaxN=3; W=8; R1=-10; R2=-R1*2+1;
var
  a: array [1..MaxN,1..MaxN] of Integer;
  i, j, n, s, ms, mi, mj: Integer;
begin
  Randomize;
  WriteLn('A=');
  mi:=1; mj:=1; ms:=0; s:=0;
  for i:=1 to MaxN do begin
    n:=0;
    for j:=1 to MaxN do begin
      a[i,j]:=R1+Random(R2); Write(a[i,j]:W);
      if a[i,j]>0 then Inc(n);
      if a[mi,mj]>a[i,j] then begin
        mi:=i; mj:=j; ms:=s;
      end;
      s:=s+a[i,j];
    end; WriteLn('|',n:W);
  end;
  for j:=1 to MaxN do begin
    s:=0;
    for i:=1 to MaxN do
      if a[i,j]<0 then s:=s+a[i,j];
    Write(s:W);
  end; WriteLn;
  WriteLn('min: a[',mi,',',mj,']=',a[mi,mj],'; a[',mi,',',mj,']:=',ms);
  a[mi,mj]:=ms;
  mi:=1; for i:=2 to MaxN do if a[mi,3]>a[i,3] then mi:=i;
  mj:=1; for j:=2 to MaxN do if a[2,mj]>a[2,j] then mj:=j;
  WriteLn('Номера min: 3 столбец - ',mi,'; 2 строка - ',mj);
end.