Сложение двух рациональных дробей

uses crt;
type
frac=record  {тип дробь}
     m:integer;{числитель-любое целое число}
     n:1..maxint;{знаменатель-положительное число}
     end;
procedure Sokr(var a:frac); {Сокращение дроби}
function Nod(a,b:integer):integer;{вспомогательная функция - нахождение НОД}
begin
while a<>b do
if a>b then a:=a-b else b:=b-a;
Nod:=a
End;
var q:integer;
begin
q:=Nod(abs(a.m),a.n);
a.m:=a.m div q;
a.n:=a.n div q;
end;
procedure Summa(a,b:frac;var c:frac); {сложение двух дробей}
begin
c.m:=a.m*b.n+b.m*a.n;{вычисляемем числитель}
c.n:=a.n*b.n;{знаменатель}
Sokr(c); {сокращаем дробь}
write(a.m,'/',a.n,' + ',b.m,'/',b.n,'=',c.m,'/',c.n);
readln
end;
var a,b,c:frac;
begin
clrscr;
repeat
writeln('Введите числитель и знаменатель дроби А:');
readln(a.m,a.n);
until a.n>0;
repeat
writeln('Введите числитель и знаменатель дроби B:');
readln(b.m,b.n);
until b.n>0;
Summa(a,b,c)
end.