Ограничитель в быстрой сортировке

[Юлия999]

Мне нужно сделать массив из n элементов для которого необходим ограничитель который не позволит индексу i выйти за пределы n.Каким должно быть его значение?
Я сделала программу...а как ограничитель поставить?

uses crt;
type massiv=array [1..5000] of integer;
var
x:massiv;
i,n:integer;
procedure sort(l,r:integer);
var
i,j,x1,y1,m: integer;
begin
i:=l;
j:=r;
m:=round ((l+r)/2);
x1:=x[m];
repeat
while x[i]<x1 do inc(i);
while x[j]>x1 do dec(j);
if i<=j then
begin
y1:=x[i];
x[i]:=x[j];
x[j]:=y1;
inc(i);
dec(j);
end;
until i>j;
if l<j then sort(l,j);
if i<r then sort(i,r);
end;

begin
clrscr;
randomize;
write('Vvedite razmer massiva ne bolee 5000 n=');
readln(n);
writeln('ishodni massiv:');
for i:=1 to n do
begin
x[i]:=random(50)-10;
write(x[i],' ');
end;
writeln;
sort(1,n);
writeln('Massiv posle sortirovki: ');
for i:=1 to n do
write(x[i],' ');
readln;
end.

[mss]

Да есть уже в твоем коде все необходимые "ограничители")

Лажа у тебя скорее в другом - вместо

m:=round ((l+r)/2);

следует использовать

m:=(l+r) div 2