Сделать программу в делфи: Сократить дробь. Пришлите пожалуйста код программы и…

Отправил. Procedure TForm1.Button1Click (Sender: TObject); var i,min,qw,bx: integer; begin qw: =strtoint (edit1.Text); bx: =strtoint (edit2.Text); if qw>bx then min: =a else min: =bx; for i: =1 to min do if (qw mod i=0) and (bx mod i=0) thenbegin qw: =bx div i; bx: =bx div i; end; edit1.Text: =inttostr (qw); edit2.Text: =inttostr (bx); end;