Потоки

Дядьки и Тетьки Помогите. Надо создать несколко потоков(кол-во вводиться с клавиатуры). И с помощью Mutex вывести их в обратном порядке.

Вот мое, но делает не то:

PHP:

program Project2;    {$APPTYPE CONSOLE}  
  uses    SysUtils,    Windows;  
  var n,Ed:integer;  
Thred:array[0..255] of Thandle;
  ID:Dword; 

   procedure Sed; 
  begin    
 writeln(ed);   
end;  

  begin  write('Kol-vo Potokov ');
  n:=strtoint(paramstr(1));
  writeln(n);   
  for ed:=n downto 1 do 
      begin    
Thred[ed]:=createthread(nil,0,@Sed,pointered),CREATE_SUSPENDED,ID);         ResumeThread(Thred[ed]);       
  waitforsingleobject(Thred[ed],1000);   
    end;  
readln;  
end.   

помогите