what's wrong???

var a:array[1..1000] of string;v,b,c,n,i:integer;
begin
b:=0;c:=0;v:=0;
read(n);
for i:=1 to n+1 do begin
readln(a[i]);
if a[i]='Emperor Penguin' then v:=v+1;
if a[i]='Macaroni Penguin' then b:=b+1;
if a[i]='Little Penguin' then c:=c+1;
end;
if (v>b)and(v>c)then writeln('Emperor Penguin');
if (b>v)and(b>c)then writeln('Macaroni Penguin');
if (c>b)and(c>v)then writeln('Little Penguin');
end.

Why "for i:=1 to n+1 do"???
Must be "for i:=1 to n do"!!!

if i do "for i:=1 to n do" then (не знаю как дальше поанглийски) Короче он вводит на 1 меньше

Change "read(n)" to "readln(n)".