Планировщик потоков

[goto ∞]

Программная реализация простого бесприоритетного планировщика потоков.
Исходные данные:
- возможные состояния потоков: выполнение, ожидание, блокировка
- отрабатываемые события: создание нового потока, завершение активного потока, завершение кванта времени у активного потока, блокирование потока, разблокирование потока
- основная структура данных: массив дескрипторов потоков с двумя полями - идентификатор потока, состояние потока
- массив реализует простейшую очередь со сдвигом элементов при удалении

Очередь потоков сделали. Как примерно реализовать следующий пункт:

отрабатываемые события: создание нового потока, завершение активного потока, завершение кванта времени у активного потока, блокирование потока, разблокирование потока

Впервые сталкиваюсь с такой задачей и понятия даже нету как программно это сделать. Может кто либо помочь по этому пункту? Буду благодарен.

Program Potok2;

type
    descriptor = record
         id, status : integer;
    end;

const MAX = 4;


var
        que : array [0..MAX-1]of descriptor;
		i, qnext, qindex, qlength : integer;
		ck1,ck2:Boolean;
		Thead:descriptor;
		
		
		Procedure IqueInit;
begin
qnext := 0; qindex := qnext;
qlength:=0;
end;

  function queadd(eque : descriptor):boolean;
  begin
    queadd := true;
    if qlength <> MAX then
      begin
       que[qnext] := eque;
       inc(qnext);
	   inc(qlength);
	   if qnext = MAX then qnext := 0;
      end
    else queadd := false;
  end;

  function quedel(eque : descriptor):boolean;
  begin
    if qlength > 0 then
	 begin
	   inc(qindex);
	   if qindex = MAX then qindex := 0;
	   dec(qlength);
	   quedel := true;
	 end else quedel := false;
  end;

  

begin
qnext := 0; qindex := qnext;
qlength := 0;
end.