Наибольший общий делитель - программа на Паскале

Нахождение наибольшего общего делителя двух чисел на Паскале:

program ex62;
Uses Crt;
VAR
i, n, m, NOD: integer;
BEGIN
ClrScr;
Write('Введите 1-е число n='); ReadLn (n);
Write('Введите 2-е число m='); ReadLn (m);

FOR i:=n DOWNTO 1 DO
begin
If m mod i<>0 then CONTINUE;
IF n mod i=0 then
begin
NOD:=i;
WriteLn('NOD=', NOD);
BREAK;
end
end;
readLn;
END.