Программа зависает

[SKS]

Всем привет!
Понадобилось в короткие сроки сделать тест (в виде игры "кто хочет стать миллионером") для студентов бухгалтерского отделения, так как времени не было, решил найти исходник.
Скачанное запустил, тест начался нормально но иногда зависает и не отвисает, кто может помогите! Где в коде ошибка
Файл прикреплён.

[SKS]

Поднимаю тему, в виду необходимости.
Посмотрите что с кодом? Никак разобраться не могу, виснет и всё.

[Человек_Борща]

Программа из разряда "ломай меня полностью". Такого быдлокода я ещё не видел.
ваша проблема вот здесь:

 Randomize;
 rn1:=random(15)+1;
 rn2:=random(15)+1;
 rn3:=random(15)+1;
 rn4:=random(15)+1;
 rn5:=random(15)+1;
 rn6:=random(15)+1;
 rn7:=random(15)+1;
 rn8:=random(15)+1;
 rn9:=random(15)+1;
 rn10:=random(15)+1;
 rn11:=random(15)+1;
 rn12:=random(15)+1;
 rn13:=random(15)+1;
 rn14:=random(15)+1;
 rn15:=random(15)+1;

 while (rn1=r1) or (rn1=r2) or (rn1=rn6) or (rn1=rn5) or (rn1=rn4) or (rn1=rn3) or (rn1=rn2) or (rn1>5) do begin
 rn1:=random(15)+1;
 end;

 while (rn2=r1) or (rn2=r2) or (rn2=rn6) or (rn2=rn5) or (rn2=rn4) or (rn2=rn3) or (rn2=rn1) or (rn2>5) do begin
 rn2:=random(15)+1;
 end;

 while (rn3=r3) or (rn3=r4) or (rn3=rn6) or (rn3=rn5) or (rn3=rn4) or (rn3=rn2) or (rn3=rn1) or (rn3<6) or (rn3>10) do begin
 rn3:=random(15)+1;
 end;

 while (rn4=r3) or (rn4=r4) or (rn4=rn6) or (rn4=rn5) or (rn4=rn3) or (rn4=rn2) or (rn4=rn1) or (rn4<6) or (rn4>10) do begin
 rn4:=random(15)+1;
 end;

 while (rn5=r5) or (rn5=r6) or (rn5=rn6) or (rn5=rn4) or (rn5=rn3) or (rn5=rn2) or (rn5=rn1) or (rn5>15) or (rn5<11) do begin
 rn5:=random(15)+1;
 end;

 while (rn6=r5) or (rn6=r6) or (rn6=rn5) or (rn6=rn4) or (rn6=rn3) or (rn6=rn2) or (rn6=rn1) or (rn6>15) or (rn6<11) do begin
 rn6:=random(15)+1;
 end;

 while (rn7=r6) or (rn7=r6) or (rn7=rn5) or (rn7=rn4) or (rn7=rn3) or (rn7=rn2) or (rn7=rn1) or (rn7>15) or (rn7<11) do begin
 rn7:=random(15)+1;
 end;

 while (rn8=r2) or (rn8=r2) or (rn8=rn5) or (rn8=rn4) or (rn8=rn3) or (rn8=rn2) or (rn8=rn1) or (rn8>15) or (rn8<11) do begin
 rn8:=random(15)+1;
 end;

 while (rn9=r2) or (rn9=r2) or (rn9=rn5) or (rn9=rn4) or (rn9=rn3) or (rn9=rn2) or (rn9=rn1) or (rn9>15) or (rn9<11) do begin
 rn9:=random(15)+1;
 end;

 while (rn10=r2) or (rn10=r2) or (rn10=rn5) or (rn10=rn4) or (rn10=rn3) or (rn10=rn2) or (rn10=rn1) or (rn10>15) or (rn10<11) do begin
 rn10:=random(15)+1;
 end;

 while (rn11=r2) or (rn11=r2) or (rn11=rn5) or (rn11=rn4) or (rn11=rn3) or (rn11=rn2) or (rn11=rn1) or (rn11>15) or (rn11<11) do begin
 rn11:=random(15)+1;
 end;

 while (rn12=r2) or (rn12=r2) or (rn12=rn5) or (rn12=rn4) or (rn12=rn3) or (rn12=rn2) or (rn12=rn1) or (rn12>15) or (rn12<11) do begin
 rn12:=random(15)+1;
 end;

 while (rn13=r3) or (rn13=r3) or (rn13=rn6) or (rn13=rn5) or (rn13=rn4) or (rn13=rn2) or (rn13=rn1) or (rn13>15) or (rn13<11) do begin
 rn13:=random(15)+1;
 end;

 while (rn14=r3) or (rn14=r3) or (rn14=rn6) or (rn14=rn5) or (rn14=rn4) or (rn14=rn2) or (rn14=rn1) or (rn14>15) or (rn14<11) do begin
 rn14:=random(15)+1;
 end;

 while (rn15=r3) or (rn15=r3) or (rn15=rn6) or (rn15=rn5) or (rn15=rn4) or (rn15=rn2) or (rn15=rn1) or (rn15>15) or (rn15<11) do begin
 rn15:=random(15)+1;
 end;

 r1:=rn1;
 r2:=rn2;
 r3:=rn3;
 r4:=rn4;
 r5:=rn5;
 r6:=rn6;
 r7:=rn7;
 r8:=rn8;
 r9:=rn9;
 r10:=rn10;
 r11:=rn11;
 r12:=rn12;
 r13:=rn13;
 r14:=rn14;
 r15:=rn15;

[SKS]

Подскажите как решить проблему, может есть код короче?

[Прик]

А циклы эти (while) для какой необходимости?

[SKS]

типа рандомом показывают варианты вопросов и ответов.

[Прик]

Я в личку дал пару вариантов улучшения. Смотрите.