it must work, but WA test 1?

type elem=record name:string;fuck:string;end;
var a:array[1..1000]of elem;
n,i:word;
begin
readln(n);
for i:=1 to n do
     begin
     readln(a[i].name,a[i].fuck);
     end;
writeln('Slytherin:');
for i:=1 to n do
if a[i].fuck='Slytherin' then writeln(a[i].name);
writeln('');

writeln('Hufflepuff:');
for i:=1 to n do
if a[i].fuck='Hufflepuff' then writeln(a[i].name);

writeln('');
writeln('Gryffindor:');
for i:=1 to n do
if a[i].fuck='Gryffindor' then writeln(a[i].name);

writeln('');
writeln('Ravenclaw:');
for i:=1 to n do
if a[i].fuck='Ravenclaw' then writeln(a[i].name);

end.