Как найти все простые несократимые дроби, меньшие 1, знаменатели которых не превышают 9? - Pascal

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

Как найти все простые несократимые дроби, меньшие 1, знаменатели которых не превышают 9? дробь задаётся двумя натуральными числами - числитель и знаменатель. Вроде сделал набросок, но проскакивают такие дроби как 2/4 2/6 3/6 4/6 2/8 4/8 6/8 Как от них избавиться?

var    chisl,znam: integer;
begin
  
  for znam:=2 to 9 do begin
    for chisl:= 1 to znam do 
        if (chisl mod znam <>0) then write (chisl,'/',znam,' ');
      writeln();
      end
    
end.

Окно вывода1/2 1/3 2/3 1/4 2/4 3/4 1/5 2/5 3/5 4/5 1/6 2/6 3/6 4/6 5/6 1/7 2/7 3/7 4/7 5/7 6/7 1/8 2/8 3/8 4/8 5/8 6/8 7/8 1/9 2/9 3/9 4/9 5/9 6/9 7/9 8/9

Решение задачи: «Как найти все простые несократимые дроби, меньшие 1, знаменатели которых не превышают 9?»

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

var    chisl,znam: integer;
begin
  
  for znam:=2 to 9 do begin
    for chisl:= 1 to znam -1 do 
        if (chisl<>znam) and (chisl mod 2 <>0)and(znam mod 2<>0) then if (chisl mod 3<>0)and(znam mod 3<>0) then write (chisl,'/',znam,' ');
      writeln();
      end
    
end.

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

В этом коде используется два вложенных цикла. Первый цикл идет от 2 до 9 (знаменатели дробей), а второй от 1 до znam-1 (числители дробей). В каждой итерации внутреннего цикла проверяется, является ли текущая дробь (число от 1 до znam-1, деленное на число от 2 до 9) простой несократимой дробью. Для этого проверяются три условия: 1) число не равно знаменателю (чтобы дробь была несократимой) 2) число нечетное (чтобы дробь была простой) 3) знаменатель нечетный (чтобы дробь была несократимой) Если дробь удовлетворяет всем этим условиям, то она выводится на экран. После каждой итерации внешнего цикла выводится новая строка, чтобы дроби были разделены. Этот код найдет и выведет все простые несократимые дроби, числители которых меньше 1 и знаменатели не больше 9.