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

uses crt;
const n=10;
var
A: array [1..100] of integer;
r,p,i,k: integer;
begin
clrscr;
write ('vvedite r: ');
readln (r);
repeat
write ('vvedite p: ');
readln (p);
until p>r;
k:=0;
for i:=1 to N do
begin
a[i]:=random(50);
write (a[i]:5);
if (a[i]<=p) and (a[i]>=r)
then inc(k); end;
writeln;
if k<>0 then
writeln ('kol-vo=',k)
else writeln ('nety takix elementov');
end.