Program Lotto - proszę o pomoc

Smerfik

Witam,
Program Lotto udało mi się skompilować, ale niestety nie działa, tzn. po podaniu liczby zakładów i komunikacie "Nastapi generowanie zakładow..." pojawia się "exitcode = 217" . Czy mogę liczyć na podpowiedzi?

program Lotto;
uses typinfo;

const
minLiczba : integer = 1;
maxLiczba : integer = 49;
ileLiczb : integer = 6;

type
liczby = set of byte;

var
i, j, k : integer;
losowaLiczba : integer;
ileZakladow : integer;
zaklady : array of liczby;
losowanie : liczby;
trafienia : liczby;
ileTrafien : array of integer;

begin
writeln('Podaj liczbe zakladow: ');
readln(ileZakladow);
SetLength(zaklady, ileZakladow);
SetLength(zaklady, ileZakladow);
writeln('Nastapi generowanie ', ileZakladow, ' zakladow. Wcisnij Enter.');
readln;
writeln('Zaklady wygenerowane');
writeln('Twoje liczby to: ');
for i:= 1 to ileZakladow do
begin
write('Zaklad ', i, ': ');
k := 0;
for j:= minLiczba to maxLiczba do
begin
if j in zaklady[i] then
begin
write(j);
inc(k);
if k < ileLiczb then
write(', ');
writeln;
end;
end;
end;

writeln;
writeln('Teraz nastapi losowanie. Wcisnij Enter.');
readln;

losowanie := [];
for j:= 1 to ileLiczb do

begin
losowaLiczba := minLiczba + random(maxLiczba - minLiczba + 1);
while losowaLiczba in losowanie do
losowaLiczba := minLiczba + random(maxLiczba - minLiczba + 1);

Include(losowanie, losowaLiczba);

end;
writeln('Wylosowane liczby to:');
k := 0;
for j:= minLiczba to maxLiczba do
begin
if j in losowanie then
begin
write(j);
inc(k);
if k < ileLiczb then
write(', ');
end;
end;
writeln;
SetLength(ileTrafien, ileLiczb);
for i:= 1 to ileZakladow do
begin
write('Trafienia w zakladzie ', i, ': ');
trafienia := zaklady[i] * losowanie;
k := 0;
for j:= minLiczba to maxLiczba do
if j in trafienia then
begin
write(j, ' ');
inc(k);
writeln;
end;
begin
if k = 0 then
write('brak Sad

')
else
write('(razem ', k, ')');
end;
inc(ileTrafien[k]);
writeln;
end;

writeln;
writeln('Podsumowanie:');
for i:= 0 to ileLiczb do
writeln(ileTrafien[i], ' zaklady po ', i ,' trafien');

readln;

end.