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

Или программа зациклится на таком..
Да и ещё порядок учеников постоянный в этой проге..
А как их рандомизировать?
Нажмите для просмотра прикрепленного файла

С чего бы это? Она еще и НЕ на таком не зациклится, если ее хорошо попросить

Ты про такой порядок?

volvo
Теоретически, да. Правда нужно было чтоб при Run Run эти буквы (имена студентов) тоже менялись.
Но это ладно.

Спасибо. Помог!!!

Randomize первой строкой программы, и будет тебе счастье... А отлаживать я предпочитаю на повторяющихся последовательностях (без Randomize)

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

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

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

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

Ну, студент же уже пришел в кабинет. Значит, его нужно вычеркнуть из списка тех, кто БУДЕТ сдавать экзамен, чтоб второй раз он же не заявился