Может кто помочь найти ошибку?

var
a: smallint;
b, c: single;

begin
Write('Введите целое число не более 1000: ');
Readln(a);
if a < 10 then
writeln('Ошибка, введенное вами число однозначное.')
else
if a < 100 then
b := a div 10;
c := a mod 10;
else
if a > 1000 then
Writeln('Ошибка введенное вами число больше 1000.');
else
b := a div 100;
c := a mod 10;
end.