Целой переменной присвоить сумму цифр трёхзначного целого числа к — Pascal(Паскаль)

var k,x,m:integer;
begin
Readln(x);
m:=x;
 if (x>99) and (x<1000) then
  begin
   k:=0;
   while m<>0 do
    begin
    k:=k+(m mod 10);
    m:=m div 10;
    end;
   Writeln('K=',k);
  end
 else
  Writeln('Error!');
 Readln;
end.