Ввести трёхзначное число и вывести трёхзначное или не трёхзначное ДАМ 30 поинтов решать через Паскаль

var

x, y: integer;

a: string;

begin

write('Введите число: ');

readln(x);

str(x, a);

y := Length(a);

if y = 3 then

writeln('Это трёхзначное число!')

else

writeln('Это не трёхзначное число! ');

end.