这个PASCAL程序错在哪里？（入门）

输入一个不大于3位的正整数，输出这个数共有几位，同时输出这个数各个数位上的数字？

显示有一个错误：
0005.txt(12,9) Fatal: Syntax error, ) expected but := found

不知道错在哪里
刚学程序有点乱 请见谅 ；

program wids;
VAR x,a,b,c,q,w,e:integer;
begin
write(' x=');readln(x);
if ((x div 100)=0) then
begin
if ((x div 10)=0) then c:=1
else if ((x div 10)<>0) then c:=2;
end
else if ((x div 100)<>0) then c:=3;
writeln(c);
if (c:=1) then
begin
q:=x div 100;
w:=x div 10-10*q;
e:=x mod 100-10*w;
write(' ',q,' ',w,' ',e);
end
else if (c:=2) then
begin
w:=x div 10;
e:=x mod 10;
write(' ',w,' ',e);
end
else if (c:=1) then
begin
e:=x;
write(' ',e);
end;
end.

PASCAL问题:程序哪里错了? 懂编程的帮我看看这个程序哪里错了,turbo pascal的 我这个'火星人'程序哪里错了?为什么显示范围超出?(错误201,PASCAL) 请看一下这个PASCAL程序哪里出问题了. 这个程序错在哪里? 这个程序错在哪里 为什么在‘Trubo Pascal’中，这个程序运行有问题？ pascal 怎么组这个程序~ 解释以下这个程序(pascal) 这个 PASCAL 的程序 不知道哪错了？