Помогите пожалуйста! (Не шарю вообще)
"Составьте программу сложения двух простых дробей. Результат должен быть несократимой дробью. Используйте подпрограмму вычисления НОД по алгоритму Евклида. Простая дробь задаётся двумя числами: числителем и знаменателем".
Очень прошу.

Evklid; integer;

При вводе введите числитель и знаменатель 1 дроби через пробел: 2 3введите числитель и знаменатель 2 дроби через пробел: -4 3 программа зацикливается

1 program Evklid2 var m, n: integer:3 begin4 writeln('Введите m, n');5 readln (m, n) ;6 while m<>n do7 if m>n then m: =m-n8            else n:=n-m;9 writeln('НОД =' ,m);10 end.

Program nd;function nod(n,m: integer): integer;beginwhile(n<>0) and (m<>0) dobeginif n>=m then n:=n mod m else m:=m mod n;end;nod:=m+n;end;var m1,m2,n1,n2,t: integer;beginwrite('введите числитель и знаменатель 1 дроби через пробел: ');readln(m1,n1);write('введите числитель и знаменатель 2 дроби через пробел: ');readln(m2,n2);t:=nod(n2*m1+m2*n1,n1*n2);write(m1,'/',n1,' + ',m2,'/',n2,' = ',(n2*m1+m2*n1) div t,'/',(n1*n2) div t);end.