Нет смысла проверять делимость чисел отдельно на 2 и на 7, если можно проверить делимость на 14:
var n: integer = 1;
begin
repeat
n := n + 1;
if n mod 14 = 0 then write(n, ' ')
until n = 120;
writeln();
end.
Сомнителен смысл проверки на делимость вообще, если сразу можно взять первое число 14 и идти циклом с постусловием repeat ... until, прибавляя на каждом шаге цикла к предыдущему числу 14, что значительно эффективнее:
var n: integer = 14;
begin
repeat
write(n, ' ');
n := n + 14
until n >= 120;
writeln()
end.
Результат работы обоих программ: