Помогите пожалуйста, Pascal ABC

Пишет, что ошибка в 16 и 19 строке:
1. program qq;
2. var x, y, z, c, a, b: real;
3. begin
4. writeln('Введите стоимость билета бизнесс-класса:');
5.readln(x);
6. if x > 0 then
7. begin
8. y:= x / 2;
9. writeln('Введите количество оставшихся билетов бизнесс-класса, затем введите количество оставшихся билетов эконом-класса');
10. readln(a, b);
11. if a >=0 and b >= 0 then
12. begin
13. c:= a*x + y*b;
14. z:= (120*y + 40*x) - c ;
15. writeln('Доход авиакомпании:', z);
16. else
17. writeln('Решение невозможно');
18. end
19. else
20. writeln('Решение невозможно');
21. end
22. end.

program qq; var x, y, z, c, a, b: real; begin  writeln('Введите стоимость билета бизнесс-класса:');  readln(x);   if x > 0 then  begin    y:= x / 2;    writeln('Введите количество оставшихся билетов бизнесс-класса, затем введите количество оставшихся билетов эконом-класса');    readln(a, b);        if (a >=0) and (b >= 0) then      begin       c:= a*x + y*b;        z:= (120*y + 40*x) - c ;        writeln('Доход авиакомпании:', z);      end      else      writeln('Решение невозможно');  end; end.Вот так всё работает. 1. Не там поставили end;2. лишнее else writeln('Решение невозможно');3. У меня ругался паскаль на то что в условия при and не взяты в круглые скобки. if (a >=0) and (b >= 0) then