Дана последователньость и число N. Вывести числа, у которых с этим числом одинаковые делители — Pascal(Паскаль)

uses crt;
var m:array[1..100]of integer;
n,k,i:integer;
 
function NOD(a,b:longint):longint;
begin
 if a=b then NOD:=a else
 if a>b then NOD:=NOD(b,a-b) else NOD:=NOD(b-a,a);
end;
 
begin
 clrscr;
 write('Размер массива -> ');
 readln(k);
 write('Введите массив -> ');
 for i:=1 to k do read(m[i]);
 readln;
 write('N -> ');
 readln(n);
 for i:=1 to k do if NOD(m[i],n)>1 then write(m[i],' ');
 readln;
end.