Найти количество кубиков каждого из перечисленных цветов и их суммарный объем - Pascal ABC

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

Помогите пожалуйста. Создать файл содержащий сведения о кубиках : размер каждого кубика(длина ребра в сантиметрах), его цвет (красный, желтый, зеленый или синий)и материал (деревянный, металлический, картонный). Найти количество кубиков каждого из перечисленных цветов и их суммарный объем. На языке PascalABC

Решение задачи: «Найти количество кубиков каждого из перечисленных цветов и их суммарный объем»

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

begin
      c1 := c1 + 1;
    end;
    if a[i].color = 'синий' then
    begin
      c2 := c2 + 1;
    end;

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

Переменная c1 увеличивается на единицу.
Переменная c2 увеличивается на единицу, если цвет кубика равен синий.
Если цвет кубика равен синий, то переменная c2 увеличивается на единицу.