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.

8th line is wrong.  (readln(a[i].name,a[i].fuck);)
need two line
   readln(a[i].name);
   readln(a[i].fuck);

Please delete your code.

Edited by author 29.12.2006 10:44

1
aaaaaa bbbbb
Gryffindor

Edited by author 21.10.2013 15:02