Hello! Where here mistake? Prompt please, at all there does not pass 1 test, and at itself in the compiler passes.

var s:array[1..1000] of string;
    i,n,z,x,m,l:integer;
begin
read(n);
z:=0;m:=0;l:=0;
for i:=1 to n do begin
read(s[i]);
if s[i]='Emperor Penguin' then z:=(z+1);
if s[i]='Little Penguin' then m:=(m+1);
if s[i]='Macaroni Penguin' then l:=(l+1);
end;
if (z>=m) and (z>=l) then write('Emperor Penguin');
if (m>=z) and (m>=l) then write('Little Penguin');
if (l>=z) and (l>=m) then write('Macaroni Penguin');
end.

try to use readln instead read

and use > instead >=

Edited by author 12.08.2011 01:43

2 hatred : so too does not pass