[PASCAL]: Работа с одномерными массивами. Помогите составить программу и блок-схему.

[solnisvet]

Помогите, пожалуйста, составить программу и блок-схему:
Даны сведения о массах 15 вагонов состава - массив А [15].
1) Определить число вагонов N1 c массой>60 т и их суммарную массу, число N2 вагонов с массой <=60 т и их суммарную массу.
2) Сформировать соответственно массивы B1 [N1] и B2 [N2].
3) Определить самый тяжёлый вагон в массиве B1 и его порядковый номер.

[digitalis]

type
 m15 = array[1..15] of integer ;
var
  i,n1,n2,sum1,sum2,max60,nmax : integer ;
  A,B1,B2 : m15 ;
begin
  max60 := 0 ; nmax := 0 ; sum1 := 0 ; sum2 := 0 ; n1 := 1 ; n2 := 1 ;
  for i := 1 to 15 do
    begin
      if a[i] <= 60 then
        begin B2[n2] := a[i] ; sum2 := sum2 + a[i] ; Inc (n2) end
      else
        begin B1[n1] := a[i] ; sum1 := sum1 + a[i] ;
          if a[i] > max60 then
            begin max60 := a[i] ; nmax := n1 end ;
          Inc (n1)
        end ;
    end ;
end;

где-то так. ввод и вывод допишешь сам (-а)

[digitalis]

Да пожалуйста, заходи еще