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

Question

[andrey_levushkin]

Как найти все простые несократимые дроби, меньшие 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.