Составить программу умножения дроби на дробь

procedure TForm1.Button1Click(Sender: TObject);
function NOD(n,m:integer):integer;
begin
if n<>0 then NOD:= NOD(m mod n,n) else NOD:=m;
end;
 
var a,b,c,d,p,q:integer;
begin
repeat
a:=strtoint(inputbox('','Введите числитель 1 дроби натуральное число a>0 a=','1'));
until a>0;
repeat
b:=strtoint(inputbox('','Введите знаменатель 1 дроби, натуральное число b>1 b=','2'));
until b>1;
repeat
c:=strtoint(inputbox('','Введите числитель 2 дроби, натуральное число c=','1'));
until c>0;
repeat
d:=strtoint(inputbox('','Введите знаменатель 2 дроби, натуральное число d=','1'));
until d>1;
Edit1.Text:=inttostr(a)+'/'+inttostr(b)+'*'+inttostr(c)+'/'+inttostr(d)+'=';
a:=a*c;
b:=b*d;
p:=a div Nod(a,b);
q:=b div Nod(a,b);
Edit1.Text:=Edit1.Text+inttostr(p)+'/'+inttostr(q);
end;