с рекурсией нужна помощь Опции

[serega204]

посмотрите пожалуйста....здесь нужна ещё одна рекурсивная функция для нахождения Х и У методом перебор с возвратом...помогите её написать.....плиз
Вот задание:...Для заданных натуральных чисел А и В найти такие целые числа Х и У, что А*Х+В*У=С, где С равно наибольшему общему делителю чисел А и В.

Program LR_2;   Uses Crt;
var A, B : Longint;

Function NOD (Var a, b : longint) : longint;
Begin

     if (a = 0) or (b = 0)then
        if a = 0 then
        nod := b else
        nod := a
                          else
   If a >= b then begin
   a := a mod b;
   nod := nod (a,b);
                    end
             else
   Begin
   b := b mod a;
   nod := nod(a, b);
      end;
end;

Begin Clrscr;
     Writeln ('Vvedite dva celih shisla');
 Readln (a); Readln (b);
 Writeln ('C =  ', nod(a, b));
 readln;
end.