ПОМОГИТЕ ПОЖАЛУЙСТА!!

[dmdol]

Я 0 в паскале а в универе задали вот такую задачу срочно нужно сделать! знающие люди помогите пожалуйста!
ЗАДАЧА:
Даны сведения о массах вагонов состава=массив А[15]
1)Определить самый тяжёлый вагон состава , его порядковый номер, самый лёгкий вагон состава, его порядковый номер
2)Сформировать новый состав из последних 8-ми вагонов -массив В[8]
3)Определить общую массу вагонов в массиве B
4) Определить общую массу вагонов в массиве A

[FreeFree]

var 
  A:array[1..15] of real; // объявляем массив Даных  о массах вагонов 1 состава
  B:array[1..8] of real; // объявляем массив Даных  о массах вагонов 2 состава
  m_min, m_max:real; // минимальная и максимальные массы вагонов
  i_min, i_max:integer; // индекс вагонов с минимальной и максимальной массой
  S_A_m, S_B_n:real; //общие массы вагонов
  i:integer; //счетчик
begin

// заполняем массив массами вагонов
A[1]:=25.6;
A[2]:=65.6;
....
A[15]:=45.6;

S_B_n:=0;

//находим минимальную массу и максимальную, заодно и массу всех вагонов состава А

m_min:=A[1];
m_max:=A[1];
i_min:=1;
i_max:=1;
S_A_m:=A[1];

for i:=2 to 15 do
     begin
         S_A_m:=S_A_m+A[i]; //суммируем все вагоны массива А

         if (A[i] < m_min) then
               begin
                 m_min := A[i];
                 i_min := i; 
               end;

         if (A[i] > m_max) then
               begin
                 m_max := A[i];
                 i_max := i; 
               end;
     end;

// теперь в m_max - максимальная масса вагона, i_max - номер вагона с макс массой (индекс массива)
//в m_min - минимальная масса вагона, i_min - номер вагона с мин массой (индекс массива)


//формируем состав из последних 8 вагонов? заодно и сумму всех масс вагонов состава В

for i:=15 downto 7 do 
  begin
    S_B_n:=S_B_n+A[i];
    B[16-i]:=A[i];
  end;

end;