неправильная работа программы на delphi

[руслан1993]

вот такая задача
Разработать функцию/процедуру проверки упорядоченности числовых элементов списка. Если список неупорядоченный, то заполнить его числами, последовательно уменьшающимися на 1, начиная с заданного числа X, и добавить полученный список в начало исходного, повторяя подобную вставку заранее известное число раз.

алгоритм описал , компилятор ошибок не выдает , программа не виснет но не выдает мне нужного результата....в надежде что если вы не исправите то хотя бы покажете где она находиться ...или окажете какую нибудь другую помощь

вот часть кода в котором я думаю содержиться ошибка

procedure TForm1.Button2Click(Sender: TObject);
var i,j,k:integer;
    mas:PIntArray;   {массив типа (3 2 1 )}
    masIt:PIntArray; {конечный массив}
    chislo:integer;  {число с которого начинается отсчет }
    kol:integer;    {количество вставок}
    nItems:integer;  {количество элементов которое будет содержать конечный массив}
begin
j:=1;
Label1.Caption:='';
kol:=StrToInt(Edit3.Text);
chislo:= StrToInt(edit2.text);
nItems:=(chislo*kol)+NumItems;
GetMem(masIt,nItems*SizeOf(integer));
GetMem(mas,chislo*sizeof(integer));
for i:=chislo downto 1 do {задание массива который содержит типа отсчет  до 1}
  mas^[i]:=i;
for i:=1 to NumItems-1 do
  begin
    if Items^[i]<=Items[i+1] then
      begin                       {проверка на упорядоченность}
        Items^[i]:=Items[i+1];
        j:=j+1;
      end;
   end;
if j < NumItems then
  begin
  for i:=0 to chislo-1 do      {вставка первого повторения}
      masIt[i]:=mas[i];
  for k:=1 to kol-1 do          {вставка последующих повторений}
    for i:=0 to chislo-1 do
      masIt[i+(chislo*k)]:=mas[i];
  for i:=0 to NumItems-1 do           {вставка исходного массива}
    masIt[i+(kol*chislo)]:=Items[i];
  for i:=0 to nItems-1 do              {вывод готового массива на метку если исходный массив был не упорядоченный}
    label1.caption:=label1.caption+IntToStr(masIt[i])+' ';
    end
  else
    label1.caption:='массив упорядочен';

end;

в этой программе на вход должен подаваться динамический массив например 6 8 3 5 , если он не упорядочен то производиться отсчет до 1 и несколько раз вставка напрмер 3 2 1 3 2 1 6 8 3 5 , а она выдает чепуху и проблема заключается в цикле на проверку J . это обработчик второй кнопки ... а на первой у меня задание динамического массива и его вывод на метку .