Определить, можно ли число N представить в виде произведения двух простых чисел?

uses Crt;
var
i,k,n,s:integer;
begin
ClrScr;
Write('Введите число:');
Readln(n);
for i:=2 to n do begin
s:=0;
for k:=1 to i div 2 do begin
if i mod j=0 then inc(s);
end;
if s=1 then Writeln(i);
end;
begin
\\\\ then writeln('Можно')
else writeln('Нельзя');
end;
ReadKey;
end.

///Функция проверяет, является ли число простым
function IsPrimes(j: integer): boolean;
var
  k: integer;
begin
  if j < 2 then result := false
  else
  if j = 2 then result := true
  else
  if odd(j + 1) then result := false
  else begin
    k := 3;
    result := true;
    while k * k <= j do 
      if j mod k <> 0 then inc(k, 2)
      else begin 
        result := false; 
        exit 
      end
  end
end;
 
var
  N, i: Longword;
 
begin
  write('N = ');
  readln(N);
  i := 2; //Минимальный возможный делитель > 1
  While N mod i > 0 do //Проверяем делимость
    if i = 2 then inc(i)
    else inc(i, 2);
  writeln;
  if IsPrimes(i) and IsPrimes(N div i) then writeln('Можно')
  else writeln('Нельзя');
  readln
end.