Delphi “Обработка экономической информации, организованной в виде массива записей"

[Shadow_rus]

Вторая часть предусматривает обработку массива записей, содержащего информацию, выбранную из документа «товарно-транспортная накладная». Документ содержит следующие реквизиты:
Во-первых, поставщик. Реквизит представлен в виде символьной строки длиной в 20 символов;
Во-вторых, пункт назначения. Реквизит представлен в виде символьной строки длиной в 20 символов;
В-третьих, название товара. Реквизит представлен в виде символьной строки длиной в 20 символов;
В-четвертых, количество. Реквизит представлен в виде числа, не имеющего дробной части;
В-пятых, цена. Реквизит представлен в виде числа, имеющего дробную часть.
При выполнении второй части требуется разработать программный код, обеспечивающий расчет общей суммы по всем товарам, имеющимся в накладной. Сумма по каждому из товаров определяется как произведение количества товара на цену товара.

Вроде не дурак: ввод документа я обеспечил, работу с суммой более менее тоже, но как заставить программу найти общую сумму по всем товарам, я не знаю...

P.S. объяснения мне не очень важны, сам разобраться сумею, вы мне только покажите как выглядит программный код, идущий за вводом реквизитов... заранее благодарю

[ОДИНОЧЕСТВО В СЕТИ]

sum:=0;
for i:=1 to n do
sum:=a[i].kol*a[i].cost+sum;
writeln(sum);

[Shadow_rus]

Спасибо огромное, все заработало, только позволю заметить что вместо a[i] при обработке документа приходится работать через TTN, и сумму еще ограничил в кооличестве знаком 8 до запятой и 2 после, а то выдает черти что... вобщем спасибо, а то сам выводил ТАААКИИИЕ коды в 20 строк что мучился без вас бы очень долго...