Pascal ABCЗадача с while, for, if.На промежутке от a до b

Var
 a,b,i,j,k,s:integer;
begin
 write('a='); readln(a);
 write('b='); readln(b);
 k:=0;
 for i:=a to b do
  begin
   j:=i;
   s:=0;
   while (jgt;0) do
    begin
     s:=s+(j mod 10);
     j:=j div 10;
    end;
   if (i mod s)=0 then
    begin
     write(i,' ');
     inc(k);
    end;
  end;
 writeln;
 writeln('k=',k);
end.