Даны два положительних числа а и b.не применяя операции деления найти остаток от деления а на b

Uses crt;
var a,b,c,i:integer;
begin
  write('a='); readln(a);
  write('b='); readln(b);
  i:=1;
  while c<a do
  begin
    c:=b*i;
    i:=i+1;
  end;
  c:=c-b;
  writeln('остаток(a:b)=',a-c);
end.