Помогите пожалуйста с опросом в паскале

var i, x, y, z, sum1, sum2: integer;
begin
writeln ('Добро пожаловать на опрос!');
sleep (2500);
writeln ('Вы курите? ДА-1 / НЕТ-0');
readln (i);
if i = 1 then
begin
write ('Сколько выкуриваете пачек сигарет в неделю? ');
readln (x);
write ('Какая стоимость пачки сигарет рублей? ');
readln (y);
write ('Как долго вы курите, лет? ');
readln (z);
sum1:=x*y*z*52;
end;

sleep (2500);
writeln ('Употребляете алкоголь? ДА-1 / НЕТ-0');
readln (i);
if i = 1 then
begin
write ('Сколько бутылок выпиваете в неделю? ');
readln (x);
write ('Средняя стоимость бутылки/банки пива рублей = ');
readln (y);
write ('Как долго вы пьете пиво? ');
readln (z);
sum2:=x*y*z*52;
end;
writeln ;
writeln ;
if sum1 + sum2 = 0 then writeln ('Вы спортсмен!')
else
begin
writeln ('Сумма затраченных денег на пиво, употребляемого за год рублей = ', sum2 div z);
writeln ('Сумма затраченных денег на сигарет, употребляемых за год рублей = ', sum1 div z);
writeln ('Общая сумма на потраченные сигареты и пиво за весь период = ', sum1+ sum2);
end;
end.

byte answer=0, b_answer=0 //ответ,
byte y_sigarets=0,y_beer=0//стаж сигарет и пива
integer sigarets=0,beer=0 //кол-во сигарет/пива
real p_sigaret=0,p_beer=0 //цена за пачку/тару сигарет/пива

writeln("Куришь?")
readln(answer)
if (answer=1) then
..writeln("Сколько выкуриваешь, какая стоимость пачки и какой стаж?")
..read(sigarets,p_sigarets,y_sigarets)
b_anwer=1;
answer=0
writeln("Пьёшь?")
readln(answer)
if(anwer=1)
..То же самое, что и для сигар
if(b_answer=0)
..writeln("Заработано достижение ЗОЖ") //ну или вывести, что суммы по нулям
else
if(y_sigarets=0)
writeln("Вы не курили")
else
writeln("Сумма за год =",52*sigarets/p_sigarets," стаж = ,y_sigarets
if(y_beer=0)
writeln("Вы не пили)
else
//То же, что и для сигар