Склавиатуры вводятся два целых положительных числа. найти их наибольший общий делитель. 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.