массивы через паскаль

[маями]

я не очень хорошо разбираюсь в массивах а нам задали сделать программу,
вот задание:
дан массив вагонов до 80 тонн A[15]
1) определить вагон с мнимальной массой, его порядковый номер
2) определить число вагонов №1 массой < 10 тонн
3) сформулировать из этих вагонов новый состав массив В [N1]
4) определить общую массу для массива В [N1] и и для остатка массива A(>=10тонн)
помогите пожалуйста сделать программу и если не сложно блог схему.
заранее спасибо

[Leshii]

Помогу, но частично =) В программе есть наглядная ошибка, при выводе массива B. Собственно три пункта я сделал на скорую руку. Дальше вам останется удалить из массива А те элементы которые перешли в масив B и посчитать сумы элементов массива A, и отдельно массива B. Вот и вся беда.

Program Vagon;
Uses crt;
const n=15;
var A,B:array [1..n] of integer;
    i,j,min:integer;
    indx,k:integer;
begin
clrscr;
for i:=1 to n do begin
    write('Vvedite massy vagonov A[',i,']=');
    readln(A[i]);
end;

min:=a[1];
for i:=1 to n do
 if min>a[i] then begin
    min:=a[i];
    indx:=i;
 end;

write('Minimalnaya masa vagona ',min,' s indeksom ',indx,'');

writeln;
k:=0;
for i:=1 to n do
    if a[i]<=10 then begin
       k:=k+1;
       b[k]:=a[i];
    if k=0 then writeln('Net takux elementov')
    else for j:=1 to k do write(b[i],' ');
    end;

writeln;
writeln;

for i:=1 to n do begin
    write(a[i]:3);// вывод массива, делал для наглядности, 
советую убрать и не показывать пока не удалите элементы массива 
A которые по весу не больше 10 и после выводить.
end;
readln;
end.

Касательно удаления советую поюзать гугл или же попробовать самому и выложить сюда, тогда помощь с моей стороны будет полной