С клавиатуры вводятся два целых положительных числа. Найти их наибольший общий делитель. Pascal ABC функцией

Function NOD(A,B:integer):integer; Begin if A>B then result:=B else result:=A; result:=result+1; Repeat result:=result-1 Until (A mod result = 0)and(B mod result = 0) End; Var A,B:integer; Begin Write('A = ');ReadLn(A); Write('B = ');ReadLn(B); Write(NOD(A,B)) End.