На языке программирования pascal создать программу нахождения наибольшего общего делителя (нод)

Алгоритм еквлида 

var x,y:integer;
begin
read(x);//первое число
read(y);//второе число
while((x-y)>0 )or((y-x)>0) do
if x>y then x:=x-y
else y:=y-x;
writeln(x);
end.