[PASCAL] Найти общие делители.Алгоритм/Блок-схема

[guardi]

Добрый день,не могли бы подправить блок-схему решения задания,вообщем есть два варианта,как я вижу сам ход решения,но что-то ни однин из них не верен(да я знаю,что и первом,и во втором случае есть ошибки,но уже не один день пытаюсь сообразить)
Задание: Для двух целых чисел найти все их общие делители.
И да,нельзя использовать стандартные функции, mod и div ,через них все получается быстро и коротко,а тут нужно помучиться