Определить самый лёгкий вагон в составе В1, его номер - Pascal ABC

Формулировка задачи:

даны сведения о массивах 15 вагонов состава-массив А[10](10..80 т) 1)определите есть ли в А[10] вагоны с массой >=Q (заданной),вывести их число N и порядковые номера 2)сформировать из них новый состав-массив B[N],определить его общую массу,вывести список 3)сформировать массив В1 из вагонов с массой <Q,вывести его список и общую массу 4)определить самый лёгкий вагон в составе В1,его номер.

Решение задачи: «Определить самый лёгкий вагон в составе В1, его номер»

Листинг программы

type
    mas=array [1..100] of integer;
var
   a,b,b1:mas;
   i,s,d,i1,i2,s2,leg:integer;
begin
writeln('Введите заданную массу');
readln(d);
i1:=0;
s:=0;
s2:=0;
for i:=1 to 10 do
    begin
    a[i]:=random(71)+10;
    if a[i]>=d then
              begin
              inc(i1);
              writeln('Вагон больше заднной массы ',a[i],'  ',i);
              b[i1]:=a[i];
              s:=s+b[i1];
              end
    else
             begin
              inc(i2);
              b1[i2]:=a[i];
              s2:=s2+b1[i2];
              end
    end;
writeln('B:');
for i:=1 to i1 do
    write(b[i]:3);
leg:=b[1];
writeln(#13,'B1:');;
for i:=1 to i2 do
    begin
    write(b1[i]:3);
    if b1[i]<leg then
       leg:=b1[i];
    end;
writeln(#13,'Самый легкий вагон в составе В1 ',leg);
end.

Объяснение кода листинга программы

Создается тип данных mas для представления массива целых чисел от 1 до 100.
Создаются переменные a, b, b1 типа mas для представления вагонов в составе В1.
Создается переменная i для представления индекса текущего вагона.
Создается переменная s для представления суммы массы всех вагонов в составе В1.
Создается переменная s2 для представления суммы массы вагонов в составе В1, которые легче задней массы.
Создается переменная leg для представления самого легкого вагона в составе В1.
Задается начальное значение i1 равным 0 и i2 равным 1.
Задается начальное значение s равным 0 и s2 равным 0.
Запускается цикл, который выполняется 10 раз.
Внутри цикла генерируется случайное число от 10 до 71 для каждого вагона.
Если масса текущего вагона больше задней массы, то увеличивается i1, записывается номер вагона, масса которого больше задней массы, и обновляется s суммой масс всех вагонов в составе В1.
Если масса текущего вагона меньше или равна задней массе, то увеличивается i2, записывается номер вагона, масса которого меньше задней массы, и обновляется s2 суммой масс вагонов в составе В1, которые легче задней массы.
После завершения цикла выводится сообщение о самом легком вагоне в составе В1.
Выводится сообщение о номере самого легкого вагона в составе В1.