Turbo Pascal中遇到的关于类型不吻合的疑问~请大虾赐教！

一道题：
输入一个正整数n，将n分解成质因数幂的乘积形式。我的解答：
Program PrimeMultiply;
  Var n,x:integer;
Begin
  write('n=');readln(n);
  for x:=2 to n do
    begin
      x:=2;
      while n mod x=0 do
         begin
            writeln(x);
            n:=n/x;{运行到此出现Type Mismatch,不知道何原因，帮忙解决}
         end;
      if (n mod x<>0) and (x<=Trunc(Sqrt(n))) then
              x:=x+1
      else writeln(x);
    end;
   readln;
End.