Найти наибольший общий делитель двух натуральных чисел - Pascal

program prog;
var m, n: word;
begin
 readln(m, n);
 while m<>n do
  if m>n then m:=m-n
  else n:=n-m;
 writeln(m);
end.