Simplifying Fractions 2

//inputan sama aja kayak soal simplifying fraction
var
        t,it,i,len:longint;
        bil1,bil2:int64;
        s:ansistring;

begin
        readln(t);
        for it:=1 to t do begin
                bil1:=0; bil2:=0;

                readln(s);
                len:=length(s);

                i:=1;
                while (ord(s[i]) >= ord('0')) and (ord(s[i]) <= ord('9')) do begin //selagi masih angka di bil1
                        bil1:= 10 * bil1 + ord(s[i]) - ord('0');
                        i:=i+1;
                end;
                while not ((ord(s[i]) >= ord('0')) and (ord(s[i]) <= ord('9'))) do i:=i+1; //selagi bukan angka
                while (i <= len) do begin                                                                                       //selagi angka di bil2
                        bil2:= 10 * bil2 + ord(s[i]) - ord('0');
                        i:=i+1;
                end;

                writeln(bil1,' / ',bil2);
        end;
end.

//ketoke lebih simpel pake ini ya, tapi ansistring itu sayangnya lambat~
//tapi nggak papa, soalnya UVa kan time limit nya lebar