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

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.

Program PotokS;
 
type stat = (runs, wait, blok);
 
   type desc = Object
            id : integer;
        status : stat;
 
   Procedure Create(pid:integer; pstatus:stat);
   Procedure Stop;
   Procedure Run;
   Procedure Block;
   Procedure Unblock;
 
   end;
 
 Procedure desc.Create(pid:integer; pstatus:stat);
 begin
 id := pid;
 status := pstatus;
 end;
 
 Procedure desc.Run;
 begin
  status := runs;
 end;
 
 Procedure desc.Stop;
 begin
 
 end;
 
 Procedure desc.Block;
 begin
  status := blok;
 end;
 
 Procedure desc.Unblock;
 begin
 status := wait;
 end;
 
begin
 
end.

Program PotokS;
 
type stat = (runs, wait, blok); // Состояние потока runs  - выполняется, wait - ожидание, block - блокирован
 
   type desc = Object           // Класс - поток (имитация потока)
            id : integer;           // id - потока
        status : stat;              // текущее состояние потока
 
   Procedure Create(pid:integer; pstatus:stat);  // Совего рода конструктор - Создание потока
   Procedure Stop;                               // Метод - Заврешение потока
   Procedure Run;                                //       - Активизация потока
   Procedure Block;                              //       - Блокировка потока
   Procedure Unblock;
 
   end;
 
 Procedure desc.Create(pid:integer; pstatus:stat);  // Описание методов
 begin
 id := pid;
 status := pstatus;
 end;
 
 Procedure desc.Run;
 begin
  status := runs;
 end;
 
 Procedure desc.Stop;
 begin
 
 end;
 
 Procedure desc.Block;
 begin
  status := blok;
 end;
 
 Procedure desc.Unblock;
 begin
 status := wait;
 end;
 
begin
 
end.