Проблема с потоками

program lab2_6;
uses
  Windows;//,SysUtils;
const WTime=10;//Сколько ждать
var h:array[1..2]of Thandle;//Дескрипторы потоков
    d1,d2:cardinal;//Идентификаторы потоков(зачем-то нужны)
    cs:TRTLCriticalSection;//Критические секции
//    excode:dword;
    WT:DWORD;
    to_chg:integer;
    i,n1,n2:integer;
function proc1(d:dword):dword; stdcall;//Процедура одного потока
 begin
     sleep(WTime);
     EnterCriticalSection(cs);//Входим в первую КС
     to_chg:=1;
     LeaveCriticalSection(cs);//Выходим
 result:=0;
 end;
function proc2(d:dword):dword; stdcall;//процедура второго
 begin
     EnterCriticalSection(cs);//Входим во вторую КС
     to_chg:=2;
     LeaveCriticalSection(cs);//Выходим
 result:=0;
 end;
Begin//Основная программа
AllocConsole;//Чтоб консоль появилась
   InitializeCriticalSection(cs);//Созд. КС
   n1:=0;
   n2:=0;
   for i:=1 to 10 do
   begin
    h[1]:=CreateThread(nil,0,@proc1,nil,0,d1);//Создаём первый поток
    h[2]:=CreateThread(nil,0,@proc2,nil,0,d2);//Создаём второй поток
    WaitForMultipleObjects(2,@h,true,WT);
   if to_chg=2 then
      inc(n1)
   else
      inc(n2);
   CloseHandle(h[1]);//Закрываем дескриптор первого потока
   CloseHandle(h[2]);//Закрываем дескриптор второго потока
   end;
   DeleteCriticalSection(cs);//Убиваем КС
write('score ',n1,':',n2);
readln;
FreeConsole;//Закрываем консоль
End.