Надо программа на языке водится возраст человека вывести имеет ли право человека голосовать (> =18) если не имеет то вывести сколько лет ему надо подождать

Var a:integer;
begin
writeln('Введите ваш возраст');
readln(a);
if a < 18 then writeln('Вы не можете участвовать в данном голосовании!');
if a >= 18 then writeln('Вы можете участвовать в данном голосовании!');
end.

Var x:integer;
begin
write('Ваш возраст: ');
readln(x);
if x>=18 then
  writeln('Можете голосовать')
  else writeln('Подождите ',18-x,' г.');
end.