Ввести матрицу. Найти количество положительных k1 и k2 – отрицательных элементов. Если k1>k2, распечатать положительные элементы матрицы, в ином случае – положительные элементы матрицы. Срочно!

var  n,m,i,j,k1,k2: integer;  a: array[1..100,1..100] of integer;begin  readln(n,m);  for i:=1 to n do    for j:=1 to n do readln(a[i,j]);  for i:=1 to n do    for j:=1 to n do      if a[i,j]>0 then inc(k1) else inc(k2);  for i:=1 to n do    for j:=1 to n do      if (k1>k2) and (a[i,j]>0) then writeln(a[i,j]) else        if (k1