19: Ошибка времени выполнения: System.IndexOutOfRangeException: Индекс находился вне границ массива. Стек: - PascalABC.NET

program ex48;
const n= 7;
var A: array [1..n] of integer;
i,j,x,c,L,R,count:integer;
procedure qSort(nStart,nEnd:integer);
var L,R,x,c:integer;
begin
if nStart >= nEnd then Exit;
L:= nStart; R:= nEnd;
X:= A[(L+R) div 2]; { или X:= A[L+random(R-L+1)] }
while L <= R do 
 begin { разделение }
while A[L] <  X do L:= L + 1;
while A[R] >  X do R:= R - 1;
if L <= R then
  begin
c:= A[L]; A[L]:= A[R]; A[R]:= c;
L:= L+1; R:= R-1
end
 end;
qSort(nStart, R); { рекурсивные вызовы }
qSort(L, nEnd);
end;

begin
randomize;
writeln ('Массив:');
for i:=1 to N do 
A[i]:=random(32);
for i:=1 to N do 
write (A[i]:4);
writeln;
qSort(1,N);
count:=0;
for i:=1 to N do 
write (A[i]:4);
writeln;

count:=0;
writeln('введите X');
readln(x);
L:=1;R:=N+1;
while L>R-1 do
begin
c:=(L+R)div 2;
if x[c] then
R:=c
else L:=c;
end;
if R<>L then
begin
write('',x,' не найдено, ближайшее число ');
if abs(A[R]-x)