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

[dmdol]

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

[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;