Программа (массивы)

[densektor]

Помогите пожалуйста с программой. Лабу сдать нужно, а я все никак толком не пойму как ее писать. Буду очень благодарен.
Задание: все элементы массива М(15), которые находятся раньше его минимального значения элемента, записать в массив М1, а другие - в М2.

Зараннее спасибо!

[Fireblade-fan]

В массив М2 записывать и минимальное число?

[Fireblade-fan]

program Project4;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var M,M1,M2:array [1..15] of integer;
i,n,min,j: integer;
begin
  min:=maxint;
  Writeln('vv. chisla massiva');
  for i:=1 to 15 do
    readln(m[i]);
  for i:=1 to 15 do
  if M[i]<min then
  begin
    min:=M[i];
    n:=i;
  end;
  write('M1= ');
  for i:=1 to n-1 do
  begin
      M1[i]:=M[i];
      write(M1[i],' ')
  end;
  writeln;
  Write('M2= ');
  j:=1;
  for i:=n to 15 do
    begin
        M2[j]:=M[i];
        write(M2[j],' ');
        j:=j+1
    end;
  readln
end.

[densektor]

Спасибо огромное!!