Дано натуральное числоy.увеличит его на 18, если число двухзначное. по паскалю решить

Uses crt;
var a:integer;
begin
writeln('Введите число');
read(a);
if Length(inttostr(a))=2 then a:=a+18;
writeln(a);
end.