Код работает неправильно (сложение дробей)

var a,b,c,d,m,n:integer;
function nod(x,y:integer):integer;
var modul,s:integer;
begin
if x<y then begin
s:=x;
x:=y;
y:=s;
end;
modul:=x mod y;
if modul = 0 then
nod:=y
else
nod:=nod(y,modul)
end;
begin
readln(a,b,c,d);
m:=a*d+c*b;
n:=b*d;
m:=m div nod(m,n);
n:=n div nod(m,n);
writeln(m);
writeln(n);
readln;
end.

function nod(x,y:Integer):Integer;
begin
if x=y then nod:=x else
if x>y then nod:=nod(x-y,y) else nod:=nod(y-x,x);
end;
 
function nok(x,y:Integer):Integer;
begin
nok:=(x*y) div nod(x,y);
end;
 
var a,b,c,d,zn,ch:integer;
begin
Readln(a,b,c,d);
zn:=nok(b,d);
ch:=(zn div b)*a+(zn div d)*c;
if nod(zn,ch)<>1 then 
begin
ch:=ch div nod(zn,ch);
zn:=zn div nod(zn,ch);
end;
Writeln(ch,' ',zn);
Readln;
end.

var a,b,c,d,m,n:integer;
function nod(x,y:integer):integer;
var modul,s:integer;
begin
if x<y then begin
s:=x;
x:=y;
y:=s;
end;
modul:=x mod y;
if modul = 0 then
nod:=y
else
nod:=nod(y,modul)
end;
begin
readln(a,b,c,d);
m:=a*d div nod(a*d,c*b);
n:=b*c div nod(a*d,c*b);
writeln(m);
writeln(n);
readln;
end.

uses crt;
var a,b,c,d,x,y,m,n:integer;
function nod(x,y:integer):integer;
var modul,s:integer;
begin
if x<y then begin
s:=x;
x:=y;
y:=s;
end;
modul:=x mod y;
if modul = 0 then
nod:=y
else
nod:=nod(y,modul)
end;
begin
readln(a,b,c,d);
x:=a*d+c*b;
y:=b*d;
m:=x div nod(x,y);
n:=y div nod(x,y);
writeln(m);
writeln(n);
readln;
end.

function nod(x,y:Integer):Integer;
begin
if x=y then nod:=x else
if x>y then nod:=nod(x-y,y) else nod:=nod(y-x,x);
end;
 
var a,b,c,d,zn,ch,n,m:integer;
begin
Readln(a,b,c,d);
ch:=a*d+b*c;
zn:=b*d;
n:=ch div nod(ch,zn);
m:=zn div nod(ch,zn);
Writeln(n,' ',m);
Readln;
end.