НОК и НОД для нескольких чисел

uses crt;
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 a:array[1..100] of integer;
    n,i:byte;
    k:integer;
begin
clrscr;
write('Введите кол-во элементов n=');
readln(n);
writeln('Введите элементы массива: ');
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
clrscr;
writeln('Массив:');
for i:=1 to n do
write(a[i],' ');
writeln;
k:=Nod(a[1],a[2]);
for i:=3 to n do k:=nod(k,a[i]);
writeln('Общий НОД всех элементов=',k);
readln
end.

uses crt;
function NOD(x,y:integer):integer;
Begin
If x<>0 then NOD:=NOD(y mod x,x) else NOD:=y;
End;
function NOK(x,y:integer):integer;
Begin
NOK:=(x div NOD (x,y))*y; 
end;
var a:array[1..100] of integer;
    n,i:byte;
    k:integer;
begin
clrscr;
write('Введите кол-во элементов n=');
readln(n);
writeln('Введите элементы массива: ');
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
clrscr;
writeln('Массив:');
for i:=1 to n do
write(a[i],' ');
writeln;
k:=NOK(a[1],a[2]);
for i:=3 to n do k:=NOK(k,a[i]);
writeln('Общий НОK всех элементов=',k);
readln
end.

function Min(params Args: Array of Integer): Integer;
begin
  for var i := 0 to Args.Length - 2 do
    if Args[i] < Args[i + 1] then Swap(Args[i], Args[i + 1]);
  Result := Args[Args.Length - 1];
end;
 
function Gcd(params Args: Array of Integer): Integer;
begin
  for var i := Min(Args) + 1 downto 1 do
  begin
    for var j := 0 to Args.Length - 1 do if Args[j] mod i = 0 then Result += 1 else Result := 0;
    if Result = Args.Length then
    begin
      Result := i;
      Exit;
    end
    else Result := 0;
  end;
end;
 
Begin
  Writeln(Gcd(144, 36, 300));
End.