Anh chị giúp em vs! Sắp xếp phân số trong Pascal

[Seoprok45]

Với số nguyên dương N cho trước, xét tập hợp A(N) gồm tất cả các phân số có giá trị thuộc đoạn [0,1] vs mẫu số ko lớn hơn N, Vd vs N=5, ta có phân số: 0/1; 1/5; 1/3; 2/5; 1/2; 3/5; 2/3; 3/4; 4/5; 1/1
cho trc số nguyên dương N, viết chương trình in ra mọi phân số tối giản thuộc A(N) theo thứ tự tăng dần, mỗi phân số viết dưới dạng tử số/ mẫu số.
Vd: FRAC.IN
5


FRAC.OUT
0/1
1/5
1/4
1/3
2/5
1/2
3/5
2/3
3/4
4/5
1/1

GIÚP EM NHANH NHANH NHA, EM ĐANG CẦN GẤP :emlaugh::emlaugh::emlaugh::emlaugh:

[Annhu_nguyen]

đây là phần xử lí , còn phần đọc xuất file bạn tự thêm nha [IMG]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABAQMAAAA l21bKAAAAA1BMVEXh5PJm+yKVAAAAAXRSTlMAQObYZgAAAApJR EFUCNdjYAAAAAIAAeIhvDMAAAAASUVORK5CYII=[/IMG]

program phan_so;
uses crt;
var n,i,j,d:integer;
    t,m:array[1..100]of word;
BEGIN
clrscr;
write('nhap n :');readln(n);
t[1]:=0;
m[1]:=1;
t[2]:=1;
m[2]:=1;
d:=2;
for i:=2 to n do
    for j:=1 to i-1 do
        if j<i then
           begin
                inc(d);
                t[d]:=j;
                m[d]:=i;
           end;
writeln('cac phan so tim duoc :');
for i:=1 to d do
writeln(t[i],'/',m[i]);
readln;
END.

[MinhPhuc123]

ax .... wên phần sắp xếp [IMG]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABAQMAAAA l21bKAAAAA1BMVEXh5PJm+yKVAAAAAXRSTlMAQObYZgAAAApJR EFUCNdjYAAAAAIAAeIhvDMAAAAASUVORK5CYII=[/IMG]) .................. chắc tạo thêm 1 mảng kiểu real nữa để tính tử chia mẫu r` sắp xếp 2 mảng tử và mẫu theo mảng vừa tính ......