Как в приведенном коде применить алгоритм Петерсона?

unit MainUnit;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
const
  MAX_THREADS=2;
 
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Label1: TLabel;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
  pnode = ^node;
  node = record
    value: integer;
    next: pnode;
  end;
 
  ThreadArray = array [1..MAX_THREADS] of THandle;
 
 
 
var
  Form1: TForm1;
  p, pStart, pEnd: pnode;
  th1, th2: THandle;
  thId1, thId2: Cardinal;
  ThArray: ThreadArray;
  time: word;
 
 
implementation
 
{$R *.dfm}
 
procedure AddNode(value: integer);
begin
  new(p);
  p.value:=value;
  if pStart=nil then
  begin
    p.next:=nil;
    pStart:=p;
    pEnd:=p;
  end
  else
  begin
    p.next:=nil;
    pEnd.next:=p;
    //sleep(time);
    pEnd:=p;
    //sleep(time);
  end;
end;
 
 
 
procedure PrintList;
begin
  p:=pStart;
  while p<>nil do
  begin
    Form1.Memo1.Lines.Add(IntToStr(p.value));
    p:=p.next;
  end;
 
end;
 
procedure proc1;
var
  i: integer;
begin
  for i:=1 to 50 do
    AddNode(2*i);
end;
 
procedure proc2;
var
  i: integer;
begin
  for i:=1 to 50 do
    AddNode(2*i+1);
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Form1.Memo1.Clear;
  pStart:=nil;
  pEnd:=nil;
  time:=StrToInt(Edit1.Text);
  th1:=CreateThread(nil,0,@proc1,nil,CREATE_SUSPENDED,thId1);
  th2:=CreateThread(nil,0,@proc2,nil,CREATE_SUSPENDED,thId2);
  ThArray[1]:=th1;
  ThArray[2]:=th2;
 
  ResumeThread(th1);
  ResumeThread(th2);
 
  WaitForMultipleObjects(MAX_THREADS, @ThArray, true, Infinite);
  PrintList;
end;
 
end.