Впаскаль. написать процедуру и функцию нахождения nod 2

Function Nsd(a,b:longint):longint;
begin
while (a<>0) and (b<>0) do
if a>b then
a:=a mod b
else b:=b mod a;
nsd:=a+b;
end;