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

program lol5;
uses crt;
var
f: array[1..10, 1..10] of integer;
s: array[1..10] of integer;
i, j, k: integer;
begin
clrscr;
for i:=1 to 10 do
begin
s[i]:=0;
writeln;
writeln('Введите информацию по ', i, '-ому футболисту');
for j:=1 to 10 do
read(f[i, j]);
for j:=1 to 10 do
write(f[i, j], ' ');
for j:=1 to 10 do
s[i]:=s[i]+f[i, j];
writeln(s[i]);
end;
k:=0;
for i:=1 to 10 do
if s[i]=0 then k:=k+1;
writeln('Футболистов, не забивших не одного гола, в команде ', k);
k:=0;
for i:=1 to 10 do
if s[i]=2 then k:=k+1;
writeln('Футболистов, забивших хотя бы два гола, в команде ', k);
k:=0;
for i:=1 to 10 do
if s[i]=10 then k:=k+1;
writeln('Футболистов, забивших голы в каждом матче, в команде ', k);
readln;
end.