Найти все простые несократимые дроби,заключенные между 0 и 1,знаменатели которых не превышают 7(дробь задается двумя натр.числами-числителем и знаменателем)ПАСКАЛЬ

// PascalABC.NET 3.2, сборка 1439 от 09.05.2017// Внимание! Если программа не работает, обновите версию!function ДробьНесократима(Чис,Знам:integer):boolean;begin  while Знам<>0 do begin Чис:=Чис mod Знам; Swap(Чис,Знам) end;  Result:=Чис=1end;begin  for var Знаменатель:=2 to 7 do    for var Числитель:=1 to Знаменатель-1 do      if ДробьНесократима(Числитель,Знаменатель) then        Write(Числитель,'/',Знаменатель,' ');  Writelnend.Результат1/2 1/3 2/3 1/4 3/4 1/5 2/5 3/5 4/5 1/6 5/6 1/7 2/7 3/7 4/7 5/7 6/7