Определить являются ли два числа взаимно простыми - Pascal

Формулировка задачи:

Написать функцию в которой 2 числа называются простыми, если имеют один общий делитель- единицу

Решение задачи: «Определить являются ли два числа взаимно простыми»

Листинг программы

function VZ_PRST(a,b:integer):boolean;
begin
repeat
if a>b then a:=a mod b
else b:=b mod a;
until (a=0)or(b=0);
result:=a+b=1;
end;
var a,b:integer;
begin
write('a=');readln(a);
write('b=');readln(b);
if VZ_PRST(a,b)then write('Эти числа взаимно простые!')
else write('Эти числа не являются взаимно простыми!');
end.

Объяснение кода листинга программы

Объявление функции с именем VZ_PRST и параметрами a и b типа integer.
Внутри функции выполнение цикла repeat...until, в котором повторяются следующие действия:
- Если a больше b, то значение a присваивается остаток от деления a на b;
- Иначе, значение b присваивается остаток от деления b на a.
Проверка условия: выполнение цикла продолжается до тех пор, пока a или b не станут равными 0.
После выхода из цикла проверка условия: сумма a и b равна 1.
Возвращение результата из функции - значение булевого типа, которое определяет, являются ли числа a и b взаимно простыми.
Объявление переменных a и b типа integer.
Считывание значения переменной a из ввода пользователя.
Считывание значения переменной b из ввода пользователя.
Вызов функции VZ_PRST с передачей в неё значений переменных a и b.
Вывод результата на экран: если функция возвращает true, выводится сообщение Эти числа взаимно простые!, иначе Эти числа не являются взаимно простыми!.