дроби, напечатать по возрастанию Опции

[Client]

помогите пожалуйста
Задача: Найти и напечатать в порядке возрастания все простые несократимые дроби заключенные между 0 и 1, знаменатели которых не превышают 7 (дробь задается двумя натуральными числами-числителем и знаменателем). т.е. 1/2,1/3,2/3,1/4,3/4,1/5,2/5,3/5,4/5...
Вот с поиском несократимых дробей постараюсь сам, а вот потом чтобы по возрастанию-нет идеи. вообщем надо циклом, но можно и массивом(если так легче будет).

[Client]

Код

uses crt;
var
   i,n,m:0..7;
   c:boolean;
procedure f(a,b,c,d:integer; n,m:integer);
begin
     if n>m then exit;
     if ((a+c)<=m) and ((b+d)<=m) then
        begin
             f(a,b,a+c,b+d,n+1,m);
             write (a+c,'/',b+d,'  ');
             f(a+c,b+d,c,d,n+1,m)
        end
end;
begin
     clrscr;
     for i:=1 to 7 do
              for n:=0 to i-1 do
                  begin
                       f(n,i,i,i,2,7);
                  end;
     readkey
end.

Вот подставил и все работает)
Спасибо за помощь всем

[Malice]

Вот подставил и все работает)
Спасибо за помощь всем

Это, конечно, неплохо, только я не понял за чем ты так по хитрому вызываешь эту процедуру. Надо просто:

clrscr;
f(0,1,1,1, 1,7);
readkey;