Помогите, пожалуйста, пишет "встречено 'begin', а ожидалось выражение", совсем не знаю, что делать

program haracteristy;
var b:=sredny; a:=molod; integer:
begin
writeln ('Введите свой возраст');
read (vozras);
if vozrast <0 >18 then a:=molod else b:=sredny;
if a=Molod then write ('Вы еще очень молоды') else write('Вы в расцвете сил');
end.​

Только сегодня начал учить Паскаль и заметил у вас кучу ошибок. Вы сделали очень много лишних действия, и непонятно, чему равны переменные molod и sredny? А если это строки, то b и а тоже должны быть строковыми.  Я бы сделал так

program haracteristy;  

uses crt;

var vozrast: Integer;

begin  

clrscr;

writeln ('Введите свой возраст');  

read (vozrast);  

if (vozrast >0) and (vozrast <18) then  

write ('Вы еще очень молоды')

else if vozrast >18 then

write ('Вы в расцвете сил')

else  

write('Ошибка! Возраст не может быть меншье нуля');

end.