Где тут ошибка?
program dialog_test;
var a:string;k:integer;
begin
writeln('ответьте "да" или "нет" на следующие вопросы');
writeln('1.Уважайте ли Вы дружбу?');
read(a);
K:=0;
if a='да' then k:=k+1;
writeln('2.Привлекает ли вас новое?');
read(a);
if a='нет' then k:=k+1;
writeln ('3.Притворяйтесь ли вы довольным без всякой на то ричины?');
read(a);
if a='нет' then k:=k+1;
writeln('4.Меняли ли вы в детстве более 3 раз выбор своей профессии?');
read(a);
if a='нет' then k:=k+1;
writeln('5.Предпочитайте ли вы старую одежду новой?');
read(a);
if a='нет' then k:=k+1;
writeln('6.Лишались ли вы уверенности в себе, если вам предстояло решить трудную задачу');
read(a);
if a='да' then k:=k+1;
writeln ('7.Коллекционируйте ли вы что-либо');
read(a);
if a='да' then k:=k+1;
writeln('8.Часто ли вы меняете свои планы в последний момент?');
read(a);
if a='нет' then k:=k+1;
if k>=6 then writeln ('Вы уравновешенный человек');
if(k>=3) and (k<6) then writeln ('у вас изменчивое настроение.Не забывайте,что только проявляя постоянство и настойчивость , Вы будете преуспевать в жизни.');
if k<3 then writeln (' Внимание ! Почему вы не верите в себя? будьте более оптимистичны');
end.