Не проверяется логическое выражение в операторе While

[lsd11]

Program My8_22;
 Var a,b:longint;
  Begin
  WriteLn('Введите два числа* <> 0');
  ReadLn(a,b);
  While (a<>0) or (b<>0) do

   if (a>b)
    then
     a:=a mod b
    else
     b:=b mod a;

  WriteLn('Наибольший общий делитель =',a+b);
  ReadLn;
  End.

Вылетает почему-то с ошибкой 200 (деление на 0). Т.е например при введении чисел 144 и 12, после a:=a mod b, a=0 , но из цикла while не выходит при проверке выражения (a<>0) or (b<>0), а начинает выполнять соответственно b:=b mod a; ???????!!
У меня Free Pascal IDE стоит.

[Greblin]

Ну естественно вылетает: цикл крутится пока хотя бы одно из чисел не равно 0.

while (a <> 0) and (b <> 0) do

[lsd11]

Вот это да, я не заметил. Благодарю.