Найдите наибольший общий делитель 2-ух  чисел.  Либо для цикла (пока), либо

Var a, b, answer: integer;
function gcd(m, n: integer): integer;   
 var modulo: integer;   
begin       
     modulo := m mod n;       
if modulo = 0 then            gcd := n       
      else            gcd := gcd (n, modulo)    end;
begin   
         write('Введите 2 числа: ');    readln(a, b);
    answer := gcd(a, b);   
writeln('Наибольший общий делитель: ', answer);
end.