можно типо так сделать
uses crt;
var
a,b:string;

begin
clrscr;
write(' куришь? -');
write(' да ');
write(' нет ');
write(' Выберите ответ: ');
read(a);
clrscr;
write(' пьёшь? - ');
write(' да ');
write(' нет ');
write(' Выберите ответ: ');
read(b);
clrscr;
if a='да' then write('Неправельно исправляйся');
if b='да' then write('Неправельно исправляйся');
if a='нет' then write('молодец');
if b='нет' then write('молодец');
end.