Процедура-функция на нахождение НОД по теореме Евклида

[Blueyeska]

Помогите оформить процедуру, чтобы она работала. Где вставлять write, writeln и т.д.? Что у меня не так?
Function NOD (var a, b: integer): integer;
begin
if (a=0) or (b=0) then
if a=0 then
nod: =b;
else
nod: = a;
else
begin
repeat
if a>=b then
nod:=nod (a mod b, b);
else
nod:=nod (a, b mod a);
until a=b;
nod:=a;
end;
end.

[ROMA2PVT]

Function NOD(Num1, Num2:Integer) : Integer;
begin
   if Num2=0 then
      NOD := Num1
   else
      NOD := NOD(Num2, (Num1 mod Num2));
end;

Var
 a,b,nodD:integer;
begin
write('Первое число: ');
readln(a);
a:=abs(a);
write('Второе число: ');
readln(b);
b:=abs(b);
nodD:=nod(a,b);
writeln('НОД 2-х чисел: ',nodD);
end.