Определить количество элементов массива, принадлежащих промежутку от a до b (значения а и b вводятся с клавиатуры; b> a) паскаль

Const n=20;
var x:array[1..n] of integer;
a,b,k,i:integer;
begin
Randomize;
writeln('Массив:');
for i:=1 to n do begin
 x[i]:=random(51);
 write(x[i],' ');
 end;
writeln;
write('a, b (a<b): ');
readln(a,b);
k:=0;
for i:=1 to n do
 if (x[i]>=a)and(x[i]<=b) then k:=k+1;
writeln('k = ',k);
end.

Пример:
Массив:
27 5 38 46 22 2 0 22 17 49 28 30 33 16 6 33 35 33 14 2
a, b (a<b): 10 30
k = 8

Не пойму, где это может понадобиться, но
3762194662274677225006147833619028325244330646204236432925139720030670885330519044445501804761927745268763736929034118016031519410956059710016491867886889157890211484313592791062569915129529790346983079610400317269003975512764853909825684309294001486918614927217865484171497622917064676132001029225523861302285726809602736311578770958185727882065830756366057561021042715214545162477118465368433226000538225835881149829186249682400183653494069108786491864970103748052744856652666373379197565574074550935728305785527534076832933033391949562148135756886265861748671407745362911914163091988879273202451394592768

Var        
R1, R2, R3, S1, S2, S3: Integer;        
begin             
writeln('Введите размеры рации и чемодана');             
readln(R1, R2, R3, S1, S2, S3);             
 if ((R1 < S1) and (R2 < S2) and (R3 < S3)) or             
((R3 < S3) and (R2 < S1) and (R1 < S2)) or             
((R1 < S1) and (R2 < S3) and (R3 < S3)) or             
((R2 < S2) and (R1 < S3) and (R3 < S1)) or             
 ((R2 < S1) and (R3 < S2) and (R1 < S3)) or             
((R1 < S2) and (R3 < S1) and (R2 < S3)) then
WriteLn('ПОМЕЩАЕТСЯ')  
 else
WriteLn('НЕ ПОМЕЩАЕТСЯ');
end.