Написать программу, которая вычисляет наибольший общий делитель двух целых чисел

var
nl,n2:integer;  {  числа, НОД которых надо найти }
nod:integer;    { наибольший общий делитель }
г:integer;     { остаток от деления nl на п2 }
begin
writeln('Вычисление наибольшего общего делителя');
writeln('для двух целых чисел.');
write('Введите в одной строке два числа ');
writeln('и нажмите <Enter>');
write('->');
readln(nl,n2);
while (nl mod n2)<>0 do
begin
r:=nl mod n2; { остаток от деления}
nl:=n2;
n2:=r;
end;
nod:=n2;
writeln('НОД чисел ',nl,' и ',п2,' это ',nod);
readln;
end.