Программа на тему очередь.

[venera-8]

вот задание.

Дано натуральное N и три простых числа P1, P2, P3. Найти N-ое по величине из натуральных чисел, в разложение которых на простые множители входят только числа P1, P2 и P3.
Вход:
В текстовом файле INPUT.TXT записаны числа N (1 <= N <= 10000), P1, P2, P3
( 2 <= P1 < P2 < P3 < 1000000).
Выход:
В текстовый файл OUTPUT.TXT записать найденное число.
Пример входа:
100 3 7 101
Пример выхода:
1750329

вот собственно код (написанный не мной)

Program lab4;
Type Toch=array[0..100] of integer;
Var
   N,P1,P2,P3,k,x:integer;
   x1,x2,x3:Toch;
   spos,rpos1,rpos2,rpos3:integer;
   f:text;
{добавить в очередь}
 procedure Qstore(var X:Toch; q:integer);
 begin
  if spos=100
   then WriteLn('Ochered zapolnena')
   else X[spos]:=q;
  end;

{выборка объекта из очереди }
function Qretrieve(var X:Toch;var rpos:integer):integer;
begin
 if rpos=spos
  then begin
        WriteLn('ochered pusta');
        Qretrieve:=0;
       end
  else begin
        rpos:=rpos+1;
        Qretrieve:=X[rpos-1];
       end;
end;

procedure print_Qstore(q:integer);
begin
 Qstore(x1, q*P1);
 Qstore(x2, q*P2);
 Qstore(x3, q*P3);
 spos:=spos+1;
end;

function min(a,b,c:integer):integer;
begin
 if (a<b) and (a<c)
  then min:=a
  else if (b<a) and (b<c)
        then min:=b
        else min:=c;
end;
   
begin
assign(f,'INPUT.TXT');
reset(f);
readln(f,N);
readln(f,P1);
readln(f,P2);;
readln(f,P3);
close(f);
spos:=0;
rpos1:=0;
rpos2:=0;
rpos3:=0;
print_Qstore(1);
k:=1;
while k<>N do
 begin
  x:=min(x1[rpos1],x2[rpos2],x3[rpos3]);
  print_Qstore(x);
  if x=x1[rpos1]
   then x:=Qretrieve(x1,rpos1);
  if x=x2[rpos2]
   then x:=Qretrieve(x2,rpos2);
  if x=x3[rpos3]
   then x:=Qretrieve(x3,rpos3);
  k:=k+1;
 end;
assign(f,'OUTPUT.TXT');
rewrite(f);
writeln(f,x);
close(f);
readln;
END.

когда ввожу числа из задания- выдает не верный ответ. я так понимаю программа не то что нужно считает.не могли бы вы помочь мне с этим заданием?