Почему остаток больше делителя?

программка так выдает

удивительно,не должно быть так

ну вот нам и сказали, узнать почему программа так выдает

может программка неисправна?

скинуть?)

program n_14; var x, y, q, r: integer; begin writeln ('Приватное и остаток'); write ('Введите разделяемое x'); readln (x); write ('Введите делитель y'); read (y); r:=x; q:=0; while r>=x do begin r:=r-y; q:=q+1 end; writeln ('Приватное q=', q); writeln ('Остаток r=', r) end.

странно