Дана последовательность из n натуральных чисел и натуральное число А. Найти в данной последовательности число, которое имеет самый большой наибольший общий делитель с числом А — Pascal(Паскаль)

uses crt;
function NOD(m,n:integer):integer;
begin
while m<>n do
if m>n then m:=m-n else n:=n-m;
NOD:=m;
end;
var n,i,a,b,mx,d:word;
begin
clrscr;
write('Введите число А=');
readln(a);
write('Сколько чисел в последовательности? n=');
readln(n);
write('Введите первое число b1=');
readln(b);
mx:=Nod(a,b);
d:=b;
for i:=2 to n do
 begin
  write('b',i,'=');
  readln(b);
  if NOD(a,b)>mx then
   begin
    mx:=NOD(a,b);
    d:=b;
   end;
 end;
write('Самый наибольший общий делитель с числом ',a,' имеет число ',d,' НОД=',mx);
readln
end.