Miért nem működik? (FPC)

program lotto;

uses crt;

type h=1..90;

var szam,i,j,k,l,talalat:integer;

b:array[1..5] of integer;

a:set of h;

begin

clrscr;

talalat:=0;

a:=[];

i:=1;

while(i<6) do

begin

randomize;

szam:=random(90)+1;

if (szam in a) then dec(i)

else

begin

a:=a+[szam];

inc(i);

end;

end;

for j:=1 to 5 do

begin

write('Add meg a(z) ',j,'. tippet: ');

readln(b[j]);

end;

for l:=1 to 5 do

begin

if b[l] in a then inc(talalat);

end;

writeln(talalat,' találatod volt!');

readln;

end.