Определить количество трехзначных чисел, сумма цифр которых простое число - Turbo Pascal

Формулировка задачи:

Написал код, но не могу понять в чем ошибка. Выводит на экран 0. Буду благодарен за помощь

var i,x,s,j,F,k:integer;
 begin
  for j:=100 to 999 do
   begin
    s:=0;
    x:=j;
    while x<>0 do
     begin
      s:=s+(x mod 10);
      x:=x div 10;
     end;
    for i:=2 to s div 2 do
     begin
      if s mod i = 0 then
      F:=1 else if F=0 then
      k:=k+1;
     end;
  end;
  writeln('Кол-во чисел: ', k);
end.

Решение задачи: «Определить количество трехзначных чисел, сумма цифр которых простое число»

Листинг программы

var
  i, x, s, j, count, k: integer;
 
begin
  for j := 100 to 999 do
  begin
    s := 0;
    x := j;
    while x <> 0 do
    begin
      s := s + (x mod 10);
      x := x div 10;
    end;
    k := 1;
    for i := 2 to round(sqrt(s)) do
    begin
      if s mod i = 0 then
        k := k * 0;
    end;
    if k = 1 then count := count + 1;
  end;
  writeln('Кол-во чисел: ', count);
end.

Объяснение кода листинга программы

Создается переменная i типа integer.
Создается переменная x типа integer.
Создается переменная s типа integer.
Создается переменная j типа integer.
Создается переменная count типа integer.
В цикле от 100 до 999 выполняется следующий код:
- Переменная s инициализируется как 0.
- Переменная x инициализируется как значение переменной j.
- Запускается цикл, пока x не станет равным 0.
- В цикле переменная s увеличивается на (x mod 10), где mod - оператор остатка от деления.
- Переменная x делится на 10.
- Переменная k инициализируется как 1.
- Запускается цикл, в котором проверяется, делится ли s на любое число от 2 до округленного значения корня из s. Если делится, то переменная k устанавливается в 0.
- Если в конце цикла k равно 1, то переменная count увеличивается на 1.
Выводится сообщение Кол-во чисел:, и переменная count выводится с кавычками.
Код завершается.