Переписать в одномерный массив все элементы заданного, стоящие после его минимального элемента

[IvanDormov]

Ребята, помогите ,пожалуйста! Нужно срочно сделать!
1) Переписать в одномерный массив K все элементы заданного цело-численного массива L[55], стоящие после его минимального элемента.

[newerow1989]

var L:array[1..55] of integer;
    K:array of integer;
    i,imin,n:integer;
begin
   Randomize;
   For i:=1 to 55 do
   begin
      L[i]:=Random(1000);
      Write(L[i]:3,'  ');
   end;
   Writeln;
   Writeln;
   imin:=1;
   For i:=2 to 55 do
      If L[imin]>L[i] then
         imin:=i;
   Writeln('L[',imin,'] = ',L[imin]);
   Writeln;
   n:=55-imin;
   SetLength(K,n);
   For i:=imin+1 to 55 do
      K[i-imin-1]:=L[i];
   For i:=0 to n-1 do
      Write(K[i]:3,'  ');
   Writeln;
   Readln;
end.