массив в паскале

[Пашко]

из номеров позиций элементов исходного массива лежащих вне предела диапозона от C до D сформировать новый массив.
кто может помочь???)

[GetMax]

Type
   Massiv=array[1..20] of Byte;
Var
   M,M1:Massiv;
   i,j,kol,c,d:Byte;
Begin
   Randomize;
   For i:=1 to 20 do
   Begin
       M[i]:=Random(50);
       Write(M[i]:3)
   End;
   Writeln;
   Readln(C,D);
   j:=0;
   Kol:=0;
   For i:=1 to 20 do
   Begin
      If (i < c) or (i > d) then
      Begin
         Inc(j);
         Inc(Kol);
         M1[j]:=i
      End;
   End;
   For i:=1 to Kol do Write(M1[i]:3);
   Readln
End.