модель экзамена, исправление Опции

[Anastacia Adesso]

Нашла вот тут программу..
Почти то что нужно мне.. Но возможно ли как то её сделать под таким условием-
после 9 ученика (или перед 10) один (самй первый отвеченный) билет кладётся в стопку с неотвеченными.
И так всё время - входит 11, кладётся второй билет (который уже стал как бы первым неотмеченным).

Или программа зациклится на таком..
Да и ещё порядок учеников постоянный в этой проге..
А как их рандомизировать?
 BIL.PAS ( 449 байт ) Кол-во скачиваний: 351

[Anastacia Adesso]

Ага.. Я уже заметила и поставила..
И радуюсь жизни

ааааа подожди пожалуйста!!!!

А вот здесь для чего нужен exclude ?

     for skaits:=1 to 26 do begin
     repeat
      skol:=chr(ord('A')+random(26));
     until skol in eksamens;
     exclude(eksamens,skol);