Составить программу поиска всех чисел, имеющих k разных простых делителей

program qq;
function F(n:integer):integer;
var d:integer;
begin
  result:=0;
  if n=0 then exit;
  if not odd(n) then begin
    inc(result);
    repeat n:=n div 2;
    until odd(n);
  end; 
  d:=3;
  while 
  d<=n do begin
    if n mod d=0 then begin
      inc(result);
      repeat n:=n div d;
      until n mod d<>0;
      end;
      inc(d,2);
    end;
  end;
  const N =5;
  type mas = array[1..N] of integer;  
 var i,k:integer; 
 a:mas;
  begin  
   for i := 1 to N do begin     
   write('a[', i, ']=');     
   readln(a[i]);  end; 
   write('введите количество делителей,k '); 
   readln(k);
   for i:=0 to n do
     if k=F(a[i]) then write(' ',a[i]); 
   writeln;
end.

program qq; 
type mas = array of integer;
var i,j,k,c:integer;     
a:mas;
Function F(var n,i,k,b,j:integer):integer;
begin
  k:=0;
  for i:=1 to n do begin
    if n mod i =0 then 
      begin
        b:=0;
        for j:=2 to i div 2 do      
          if i mod j=0 then 
            begin  
            b:=1; break end; 
        if b=0 then k:=k+1; begin 
        end;
      end;
 end;
end;
  const N =5;
        begin  
   for i := 1 to N do begin     
   write('a[', i, ']=');     
   readln;  end; 
   writeln('введите количество делителей,c '); 
   readln(c);
    for i:=1 to n do
     if k=F(a[i]) then write(' ',a[i]); 
   writeln;
end.

function f(x: integer): integer;
var
  k, i, d: integer;
begin
  k := 0;
  d := x div 2;
  i := 2;
  while (i <= d) and (x > 1) do
    begin
      if x mod i = 0 then
        begin
          inc(k);
          while x mod i = 0 do x := x div i
        end;
      inc(i)
    end;
  if k > 0 then f := k else f := 1
end;
 
const
  n = 5;
var
  a: array[1..n] of integer;
  i, c: integer;
begin
  for i := 1 to n do
    begin
      write('a[', i, '] = ');
      readln(a[i])
    end;
  write('c = ');
  readln(c);
  for i := 1 to n do
    if f(a[i]) = c then write(' ', a[i]);
  readln
end.

function IsPrime(n: Longint): Boolean;
var i: Longint;
begin
  IsPrime:=False;
  for i:=2 to n div 2 do
    if n mod i=0 then Exit;
  IsPrime:=True;
end;
 
function f(n: Longint): Longint;
var r, i: Longint;
begin
  r:=0;
  for i:=2 to n do
    if (n mod i=0) and IsPrime(i) then Inc(r);
  f:=r;
end;

if n mod i=0 then begin
  if IsPrime(i) then Inc(k);
  if IsPrime(n div i) then Inc(k);
end;