Простые числа - многопоточная реализация, Не могу понять что не так... Опции

[-Yupi-]

Есть два процесса - один производит простые числа и заносит в буфер, другой выводит их на экран. Вроде бы все правильно, посмотрите пожалуйста почему все зависает.. буду очень благодарна.

q:=3, w:=1;

procedure in_buf;
var j : word;
begin
  if free>0 then
    begin
    For j:=2 to q-1 do
      If (q mod j) = 0 then
      begin
	inc (q);
      end;
      inc (w);
    for j:=w downto 2 do Buffer_Sqrt[j]:=Buffer_Sqrt[j-1];
    Buffer_Sqrt[1]:=w;
    inc(w);
    end;
end;
procedure out_buf;
begin
  if ((Free<max) and (free<>max)) then
    Begin
      if buf_x>60 then begin buf_x:=45;inc(buf_y); end;
      if buf_y=21 then buf_y:=15;
      i:=max-Free;
      GotoXY(buf_x,buf_y);
      Write(Buffer_Sqrt[i]:4);
      Free:=Free+1;
      buf_x:=buf_x+4;
      Delay(10);
    End;
end;

Может проблема более глобальная? Если так то покажу всю прогу..
Всем заранее спасибо.

!

-Yupi-, заголовок темы должен быть информативным (правила, п.1)

Сообщение отредактировано: Michael_Rybak - 26.06.2007 23:39

[мисс_граффити]

 if ((Free<max) and (free<>max)) then

можно в 2 словах, чем обусловлено написание такого интересного условия?

    For j:=2 to q-1 do
      If (q mod j) = 0 then
      begin
inc (q);
      end;

при изменении q границы цикла не меняются...

шаманство с w вообще не поняла

возможно, выложенный полный код прояснит ситуацию.