OJ Board

I had written 111 problem with Free Pascal:

[pascal]
type
elem = record
index:integer;
count:integer;
end;
var
right_seq: array [1..20] of integer;
seq: array [1..20] of elem;
test, num, nn,i: integer;

procedure BuildCounts;
var
i,j:integer;
begin
for i:=1 to nn do begin
seq .count := 1 ...