НОДы

[RusseLfStyle]

Заданы два натуральных числа. Найдите наибольший четный и наибольший нечетный общий делитель для этих чисел.
Входные данные:
Во входном потоке заданы два натуральных числа a и b
(0 < a, b < 10^9)

Выходные данные:
Вывести через пробел наибольший четный и наибольший нечетный общий делитель. Если какого-то из НОДов не существует, вывести вместо него 'NO'.

Пример входного файла (input.txt):
6 12
Пример выходного файла (output.txt):
6 3

var a,b,x,y:longint;
begin
read(a,b);
while(a<>b) do
begin
if a>b then a:=a-b else b:=b-a;
end;
if a mod 2=0 then begin
x:=a;
begin
if (a div 2)mod 2<>0 then
y:=a div 2
else if (a mod 11=0) then y:=a div (x mod 10)
??????????????????????????????????????????????
end;
write(x,' ',y);
end else
if (a mod 2<>0) then 
begin
y:=a;
write('NO',' ',y);
end;
end.

Помогите добить задачу, пожалуйста.
Или допишите условие для нахождения нечетного, или напишите другим способом, ибо немогу дотемяшить, как это сделать для всех случаев.