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

var k,x,m:integer;
begin
x:=IntToStr(Edit1.Text);
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;
   Label1.Caption:=StrToInt(k);
  end
 else
  Memo1.Lines:='Error!';
 
end.