Подсчитать, сколько футболистов, родившихся в период с 1998 по 2000 год, не забили мячей вообще

uses crt;
const N=100;
type
    Fut=record
    family  : string[20];   // фамилия
    name    : string[15];   // имя
    year    : integer;      // год
    kol     : integer;      // голы
end;
 
var A :array[1..N] of Fut;
    i,k,j,m,p,x : byte;
    s : string;
 
begin
//**************ВВОД ДАННЫХ*********************************
write('количество футболистов:  '); readln(k);
for i:=1 to k do
begin
    write(i,')  ');
    readln(s);
    s:= s +' ';
    m:=0;
    x:=length(s);
    for j:=1 to x do
    if copy(s,j,1) = ' '  then
      begin
      m:= m + 1;
      if m = 1 then  begin A[i].family:=copy(s,1,j-1); p:=j; end;
      if m = 2 then  begin A[i].name:=copy(s,p+1,j-p-1); p:=j; end;
      if m = 3 then  begin A[i].year:=StrToInt(copy(s,p+1,j-p-1)); p:=j; end;
      if m = 4 then  begin A[i].kol:=StrToInt(copy(s,p+1,j-p-1)); end;
      end;
end;
writeln;
//сколько футболистов, родившихся в период с 1998 по 2000 год, не забили мячей вообще
j:=0;
for i:=1 to k do
    if (A[i].year >= 1998) and (A[i].year <= 2000) and (A[i].kol = 0) then
    begin
    j:= j + 1;
    if j = 1 then write('количество футболистов, родившиеся в период с 1998 по 2000 год, не забили мячей вообще = ');
    end;
if j = 0 then writeln('футболистов, родившиеся в период с 1998 по 2000 год, не забили мячей  НЕТ') else writeln(j);
end.