Help me to find a mistake, please

var
i,j,k,n,s:byte;
ping:array[1..1001] of string;
begin
 i:=0;j:=0;k:=0;
 readln(n);
 for s:=1 to n do
 begin
  readln(ping[s]);
  if ping[s]='Emperor Penguin' then i:=i+1 else
  if ping[s]='Macaroni Penguin' then k:=k+1 else
  if ping[s]='Little  Penguin' then j:=j+1;
 end;

 if (j>i) and (j>k) then writeln('Little Penguin');
 if (k>i) and (k>j) then writeln('Macaroni Penguin');
 if (i>k) and (i>j) then writeln('Emperor Penguin');

end.

Hi!

is a Byte going to be big enough to store the number of penguins of each type?