Напишите логическую функцию которая определяет являются ли два переданные ей числа взаимно простыми, то есть, не имеющими общих делителей, кроме 1. (На языке Паскаль)

function IsPrimes(m,n:longint):boolean; begin   while m <> n do     if m > n then m := m - n else n := n - m;   IsPrimes:=(m=1) end; { пример вызова функции } var   a,b:longint; begin   Write('Введите пару целых чисел: ');   Read(a,b);   if IsPrimes(a,b) then Writeln('Числа взаимно простые')   else Writeln('Числа не взаимно простые') end.