Pascal/Turbo Pascal - Por q¿?

Hola, tengo este mini codigo, pero la condicion q le pongo no la realiza ingreso datos superiores o inferirores y no me arroja el mensaje que quiero que podra ser.

program Zonas;
uses crt;
var
zona:integer;

begin
clrscr;
writeln('Ingrese numero de zona de 1 a 3');
readln(zona);

if (zona < 1) and (zona > 3) then
begin
writeln('Numero de Zona incorrecto');
end;
readkey
end.

if (zona < 1) and (zona > 3) then
begin
writeln('Numero de Zona incorrecto');
end;

Esta forma requiere se cumplan las dos condiciones.
Tendrías que poner [if (zona < 1) or (zona > 3) then]

Ramon gracias un error de sintaxis tienes razon ahora lo q me puso a darme contra el monitor es q yo ingreso la zona incorrecta por ejemplo 4 o 5 o 0 y no me sale de una vez q la zona es incorrecta si no despues q ingreso todo los datos porq que me falta indicarle para q no mas ingrese un numero de zona erroneo me de el mensaje de numero de zona incorrecto¿??¿?¿? aqui esta el codigo (mini) XD

program Zonas;
uses crt;
var
casa,nombre:string;
cedula:real;
zona:integer;

begin
clrscr;
writeln('Ingrese numero de zona de 1 a 3');
readln(zona);
writeln('ingrese cedula');
readln(cedula);
writeln('ingrese nombre');
readln(nombre);
writeln('ingrese numero de casa');
readln(casa);
if (zona < 1) or (zona > 3) then
begin
writeln('Numero de Zona incorrecto');
end;

readkey
end.