10000 см сколько метров, километров?

Скажите, пожалуйста, как исправить ошибку в этой программе на Паскале к следующему заданию:

На числовой прямой даны два отрезка: P = [2, 10] и Q = [6, 14]. Какова наибольшая возможная длина интервала A, что формула

( (x ∈ А) → (x ∈ P) ) ∨ (x ∈ Q)

тождественно истинна, то есть принимает значение 1 при любом значении переменной х.

var  A_max, flag, P, Q, A:integer;   

begin

 for A := -1000 to 1000 do 

 begin

  flag:=0;

  for P:=2 to 10 do

  for Q:=6 to 14 do

  if ((A<= P) or Q)=false then flag:=1;

  if (flag=0) then A_max:=A;

  end;  

  writeln(A_max);        

End. 

У меня выводится ошибка "операция or не применима к integer и boolean", но я не знаю, как исправить.

Помогите составить правильную программу к такому типу задач