D03. Увеличение суммы цифр

Задано пятизначное число от n (10000 ≤ n < 99999). Найдите ближайшее к нему большее число m такое, что сумма цифр числа m строго больше суммы цифр числа n. Обратите внимание, что так как n строго меньше 99999, то ответ всегда является пятизначным числом.
----------------------------------------------------
var
a,b,c,n,k,j,i,m,sum1,sum2:longint;
begin
 read(n);
 c:=n;
 for i:= 1 to 6 do begin
    sum1 := n mod 10 + sum1;
    n := n div 10;
 end;





  for i:= c to 99999 do begin
  m:=i;
    repeat
    begin
      sum2 := m mod 10 + sum2;
      m := m div 10;
    end;
    until(m=0);
   if (sum2> sum1) then begin
   a:=i;

  break;
   end else sum2:=0;

   end;

  writeln(a);
end.