Найти НОД (наибольший общий делитель) двух натуральных чисел по алгоритму Евклида

Функция НОД(a, b)
    если a=0
       верни b
    пока b<>0
        если a>b
           a:=a-b
    иначе
           b:=b-a
    верни a

var a, b, answer: longint;
  inf, outf: text;
 
function gcd(m, n: longint): longint;
    var modulo: longint;
    begin
        modulo := m mod n;
        if modulo = 0 then
            gcd := n
        else
            gcd := gcd (n, modulo)
    end;
 
begin
    assign(inf, 'input.txt'); reset(inf);
    assign(outf, 'output.txt'); rewrite(outf);
    readln(inf, a, b);
 
    answer := gcd(a, b);
    writeln(outf, answer);
 
    close(inf);
    close(outf);
    readln
end.

var a, b, answer: longint;
function gcd(m, n: longint): longint;
    var modulo: longint;
    begin
        modulo := m mod n;
        if modulo = 0 then
            gcd := n
        else
            gcd := gcd (n, modulo)
    end;
 
begin
    writeln('Введите 2 натуральных числа');
    readln(a, b);
    answer := gcd(a, b);
    writeln(answer);
    readln
end.

type natur=1..maxint;
procedure NOD(n,m:natur;var r:natur);
begin
if n=m then r:=n
else if n>m then NOD(n-m,m,r)
else NOD(m-n,n,r);
end;

type natur=1..maxint;
procedure NOD(n,m:natur;var r:natur);
begin
if n=m then r:=n
else if n>m then NOD(n-m,m,r)
else NOD(m-n,n,r);
end;
var a,b,answer:natur;
begin
writeln('Ââåäèòå 2 íàòóðàëüíûõ ÷èñëà');
readln(a,b);
NOD(a,b,answer);
writeln('Íîä=',answer);
readln
end.

program pr;
type natur=1..maxint;
function nod(a,b:Integer):Integer;
begin
if a=b then nod:=a else
if a>b then nod:=nod(a-b,b) else nod:=nod(b-a,a);
end;
var a,b:natur;
begin
writeln('Vvedite 2 naturalnykh chysla');
readln (a,b);
NOD(a,b);
writeln('NOD=',nod);
readln
end.

program pr;
 
type natur=1..maxint;
 
function nod(a,b:Integer):Integer;
 begin
 if a=b then nod:=a else
 if a>b then nod:=nod(a-b,b) else nod:=nod(b-a,a);
 end;
 
var a,b:natur;
begin
Writeln('Vvedite 2 naturalnykh chysla');
Readln(a,b);
Writeln('NOD=',nod(a,b));
Readln
end.