Напечатать все простые несократимые дроби, заключенные между 0 и 1, знаменатели которых не превышают 7, в порядке возрастания.

uses crt;
const n=7;
type
frac=record
     p,q:1..n;
     end;
function Nod(m,n:byte):byte;{функция определения наибольшекго общего делителя
один из алгоритмов}
begin
while m<>n do
if m>n then m:=m-n else n:=n-m;
Nod:=m;
end;
var
m:array[1..(n*n+n) div 2] of frac;{максимльный размер массива=сумме прогрессии 1,2,3...n}
k,i,j:byte;
x:frac;{переменная-буфер для сортировки}
begin
clrscr;
k:=0;
for i:=1 to n do{перебираем все числа от 1 до 7}
for j:=1 to n do
if(i<j)and (Nod(j,i)=1)then{если первое число меньше второго и они несократимы}
 begin
  k:=k+1;{cчитаем}
  m[k].p:=i;{меньше в числитель}
  m[k].q:=j;{больше в знаменатель}
 end;
for i:=1 to k-1 do{сортируем обменом по возрастанию}
for j:=i+1 to k do
if m[i].p/m[i].q> m[j].p/m[j].q then
 begin
  x:=m[i];
  m[i]:=m[j];
  m[j]:=x;
 end;
for i:=1 to k do{выводим}
write(m[i].p,'/',m[i].q,'  ');
readln
end.