Даны три простые дроби, описать их как записи. Найти их произведение и сократить - Pascal ABC

type frac=record
          p,q:integer;
          end;
procedure vvod(var f:frac;k:byte);
begin
writeln('Введите дробь ',k);
repeat
write('Введите числитель дроби, целое число, не равное 0 ');
readln(f.p);
until f.p<>0;
repeat
write('Введите знаменатель дроби, целое положительное число ');
readln(f.q);
until f.q>0;
end;
procedure vyvod(f:frac);
begin
write(f.p);
if f.q<>1 then write('/',f.q);
end;
var a,b,c,d:frac;
    i,j:integer;
begin
vvod(a,1);
vvod(b,2);
vvod(c,3);
vyvod(a);
write(' * ');
vyvod(b);
write(' * ');
vyvod(c);
write(' = ');
d.p:=a.p*b.p*c.p;
d.q:=a.q*b.q*c.q;
vyvod(d);
j:=d.p;
i:=2;
while(i<=abs(d.p))and(i<=d.q) do
 begin
  if(d.p mod i=0)and(d.q mod i=0) then
   begin
    d.p:=d.p div i;
    d.q:=d.q div i;
   end
  else i:=i+1
 end;
if d.p<>j then write(' = ');
vyvod(d);
end.