Как сделать эту программу интерактивной?

program Quick_Sort;
var A:array[1..100] of integer;
N,i : integer;
{В процедуру передаются левая и правая границы сортируемого фрагмента}

procedure QSort(L,R:integer);
var X,y,i,j:integer;
begin
X:=A[(L+R) div 2];
i:=L; j:=R;
while i<=j do
begin
while AX do j:=j-1;
if i<=j then
begin
y:=A; A:=A[j]; A[j]:=y;
i:=i+1; j:=j-1;
end;
end;
if L);
QSort(1,n); {упорядочить элементы с первого до n-го}
for i:=1 to n do write(A,' '); {упорядоченный массив}
end.