Написать подпрограмму, которая возвращает максимальную из двух обыкновенных дробей вида a/b и c/d — Pascal(Паскаль)

{Vozvrashaet maksimalnuyu iz dvuh obiknovennih drobei}
Program _4_1;
var
 a,b,c,d:word;

begin
 writeln('Vvedite chislitel i znamenatel pervoi drobi.');
 readln(a,b);
 writeln('Vvedite chislitel i znamenatel vtoroi drobi.');
 readln(c,d);
 If (a*d)>(b*c) then writeln(a,'/',b) else writeln(c,'/',d);
 readln;
end.