program namesandyears;
var a: Integer;
begin
writeln ('please, while your age'
readln (a);
if (a > 18) then
begin
writeln('совершеннолетний'
readln();
end
else
begin
writeln('несовершеннолетний'
readln();
end;
end.
Точка с запятой заканчивает оператор.
Поэтому вот тут: writeln('несовершеннолетний гражданин'); заканчивается оператор if.
И твой else теперь непонятно к чему относится.
program namesandyears;
uses crt;
var a: Integer;
begin
write ('please, while your age '
readln (a);
if a< 18 then
writeln('несовершеннолетний гражданин'
else
writeln ('совершеннолетний гражданин'
writeln('end program'
End.