Даны два числа. Найти их наибольший общий делитель. (Паскаль)

var n, k, nod:integer; begin      readln(n, k);      if (n > k) then      begin           nod:=k;      end;           if (n < k) then      begin           nod:=n      end;           if (n = k) then      begin           nod:=n;      end;      while(true) do      begin           if (k mod nod <> 0) then nod:=nod-1;           if (n mod nod <> 0) then nod:=nod-1;           if (k mod nod = 0) and (n mod nod = 0) then break;      end;           writeln('Наименьший общий делитель: ', nod); end.