Составить программу подсчета различных элементов одномерного массива, не принадлежащих отрезку [R, P] — Pascal(Паскаль)

const n=10;
var o:set of byte;
    a:array[1..n]of integer;
    i,r,p,k:integer;
begin
randomize;
repeat
writeln('Введите R,P (R<P)');
readln(r,p);
until r<p;
o:=[r..p]; k:=0;
for i:=1 to n do
begin
   a[i]:=random(11)-5;
   if not (a[i] in o) then inc(k);
   write(a[i]:4);
end;
writeln;
writeln('Количество элементов, не принадлежащий отрезку [',r,';',p,']: ',k);
readln;
end.