Программа на turbo pascal

[10Gramm]

Имеется массив A(21). Составить программу, которая обеспечивает разбиение исходного массива на 2 части. Относительно наперед заданного элемента с порядковым номером m, так что слева от него расположены элемента меньше A[m], а справа больше A[m]. Подсчитать количество элементов в левой и правой частях.
Прошу вас написать код этой программы.
вот код программы но после выдачи результата прога сразу же закрывается:
program massss;
var mas :array[1..21] of integer;
i,indEnt,smen,sbol:integer;
begin
randomize;
for i:=1 to 21 do
begin
mas:=random(99);
writeln(mas);
end;

writeln('Vvedite index elementa:<1-21>');
readln(indEnt);
writeln('Element s indexom ', indEnt, ' raven ', mas[indEnt]);
for i:=1 to 21 do
begin
if (mas[indEnt] > mas) and (indEnt<>i) then smen:=smen+1;
if (mas[indEnt] < mas) and (indEnt<>i) then sbol:=sbol+1;
end;
writeln('4islo elementov menshe ', mas[indEnt], ' ravno ', smen);
writeln('4islo elementov bolshe ', mas[indEnt], ' ravno ', sbol);
end.

[Mad_Cat]

вот код программы но после выдачи результата прога сразу же закрывается:

перед end. вставь

Readln;

[10Gramm]

Сообщение от Mad_Cat

перед end. вставь

Readln;

Спасибо огромное! вы мне очень помогли.