Текст задания

Даны сведения о количестве забитых голов каждого футболиста команды в каждом из матчей чемпионата. Проверьте, сколько в команде есть футболистов:

а) забивших хотя бы два гола;

б) забивавших голы в каждом матче;

в) не забивших ни одного гола.

Исходный код программы

var
n,m,i,j,Num,Num2,NumEvery,NumNo,numK:integer;
a: array [1..100,1..100] of integer;
begin
 Write('n='); {Запрашиваем количество игроков в команде}
 Readln(n);
 Write('m='); {Запрашиваем количество матчей команды}
 Readln(m);
  For i:=1 to n do {В цикле запрашиваем количество голов каждого игрока в каждом матче: i-й игрок в j-м матче}
   begin
    j:=1;
     While j<=m do
      begin
       Write('a[',i,',',j,']=');
       Readln(a[i,j]);
       j:=j+1;
      end;
   end;
  Num2:=0; {Зануляем счетчики}
  NumEvery:=0;
  NumNo:=0;
   For i:=1 to n do
    begin
     j:=1;
     num:=0;
     numK:=0;
      While j<=m do
       begin
	If a[i,j]>0 then begin num:=num+a[i,j]; numK:=numK+1; end; {Считаем количество голов, забитых игроком}
	j:=j+1;
       end;
     if num>=2 then num2:=num2+1; {Считаем нужные показатели}
     if numk=m then numEvery:=numEvery+1;
     if num=0 then numNo:=NumNo+1;
    end;
  Writeln('Kolichestvo zabivshih hotya bi 2 gola: ',num2); {Выводим ответ}
  Writeln('Kolichestvo zabivshih v kagdom matche: ',NumEvery);
  Writeln('Kolichestvo nezabivshih: ',NumNo);
  Readln;
end.