Ошибка в программе., Нужна ваша помощь. Опции

[Casual]

Задача: найти наибольший общий делитель целых положительных чисел a, b, c.
p.s. знаю, что решалось, но все же нужна помощь. Работать в Паскале только начал.

Program NOD;
var a, b, c:integer;
begin
writeln('vvedite 3 chisla');
readln(a, b, c);
repeat if a>b then a:=a mod b
else b:=b mod a
until (a=0) or (b=0);
repeat if c>a then c:=c mod a
until (c=0) or (a=0);
repeat if c>b then c:=c mod b
until (c=0) or (b=0);
writeln('NOD=', a+b+c);
readln;
end.

[volvo]

Переменные на локальном уровне

Может, все-таки параметры-переменные (они же Var-параметры)? Кстати, а в чем смысл:
1) описания a, b, c перед процедурой;
2) использования процедур вместо функций
?

Это чтоб больше написать, и программа солиднее казалась? Вообще-то с функцией (ссылка в третьем посте) решение - в одну строку (решение приведено там же, в посте №3)...