Дан массив А,состоящий из n натуральных чисел.Найдите наибольший общий делитель элементов массива

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.

while pos('a',s)>0 do delete(s,pos('a',s),1);

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;
    f:text; 
    n,i:byte;
    k:integer;
begin
clrscr;
assign(f,'massiv.txt');//связываемся с файлом, он должен быть создан и лежать в папке с программой
reset(f);//открываем для чтения
read(f,n);//читаем первое число - размер записанного в файле массива
writeln('Массив:');
for i:=1 to n do
 begin
  read(f,a[i]);//читаем сам массив
  write(a[i],' ');/выводим на экран
 end;
close(f); //закрываем файл
writeln;
k:=Nod(a[1],a[2]);
for i:=3 to n do k:=nod(k,a[i]);
writeln('Общий НОД всех элементов=',k);
readln
end.