Срочно нужна помощь!!!!!!!!!!

[Chidory]

помогите,пожалуйста,найти в массиве взаимно простые числа,т.е. те у которых нет общих делителей кроме 1,и вывести их в Memo>_<очень надо!!!!!!!!

[puporev]

const n=20;
var
  Form1: TForm1;

implementation

{$R *.dfm}
Function NOD(x,y:integer):integer;//функция наиб.общ.делитель
begin
while x<>y do
if x>y then x:=x-y
else y:=y-x;
NOD:=x;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i,j,k:integer;
    a:array[1..n]of integer;
begin
randomize;
for i:=1 to n do
   begin
    a[i]:=random(50)+1;
    Edit1.Text:=Edit1.Text+inttostr(a[i])+' ';//массив
   end;
for i:=1 to n do
   begin
     k:=0;
     for j:=1 to n do
     if (NOD(a[i],a[j])=1) then//смотрим каждое число с каждым
        begin
          k:=k+1;//если НОД = 1, считаем
        end;  //если со всеми кроме себя, то выводим
     if k=n-1 then Memo1.Text:=Memo1.Text+inttostr(a[i])+' ';
   end;
end;

end.