Как найти НОД через оператор for ? Помогите плиииз!!

function GCD(a, b: integer): integer;

begin

 if b = 0 then

   Result := a

 else

   Result := GCD(b, a mod b)

end;

var

 a, b: integer;

begin

 Read(a, b);

 Write(GCD(a, b));

end.