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

program pr;
 
const
  Csize = 100;
 
type
  Tcube = record
    len: real;
    color: string[50];
    material: string[50];
  end;
  Tarr = array [1..Csize] of Tcube;
 
var
  i, n, c1, c2, c3, c4, j, code, sum: integer;
  a: Tarr;
  f: text;
  s, s1, s2: string;
 
begin
  sum := 0;
  c1 := 0;
  c2 := 0;
  c3 := 0;
  c4 := 0;
  assign(f, 'cub.txt');
  rewrite(f);
  writeln('Введите количество кубиков');
  readln(n);
  for i := 1 to n do
  begin
    writeln('Введите длину ребра кубика');
    readln(a[i].len);
    writeln(f, a[i].len);
    writeln('Введите цвет кубика');
    readln(a[i].color);
    writeln(f, a[i].color);
    writeln('Введите материал кубика');
    readln(a[i].material);
    writeln(f, a[i].material);
    writeln;
  end;
  close(f);
  reset(f);
  while not eof(f) do
  begin
    readln(f, s);
    Val(s, j, Code);
    readln(f, s1);
    readln(f, s2);
    sum := sum + j * j * j;
    writeln('Длина: ', s);
    writeln('Цвет; ', s1);
    writeln('Материал: ', s2);
    writeln;
    if s1 = 'красный' then
    begin
      c1 := c1 + 1;
    end;
    if s1 = 'синий' then
    begin
      c2 := c2 + 1;
    end;
    if s = 'жёлтый' then
    begin
      c3 := c3 + 1;
    end;
    if s1 = 'зелёный' then
    begin
      c4 := c4 + 1;
    end;
  end;
  writeln('Количество красных кубов: ', c1);
  writeln('Количество синих кубов: ', c2);
  writeln('Количество жёлтых кубов: ', c3);
  writeln('Количество зелёных кубов: ', c4);
  writeln('Объём всех кубов: ', sum);
end.

program pr;
 
const
  Csize = 100;
 
type
  Tcube = record
    len: real;
    color: string[50];
    material: string[50];
  end;
  Tarr = array [1..Csize] of Tcube;
 
var
  i, n, c1, c2, c3, c4: integer;
  sum:real;
  a: Tarr;
  f: file of Tcube;
 
begin
  sum := 0;
  c1 := 0;
  c2 := 0;
  c3 := 0;
  c4 := 0;
  assign(f, 'cub.txt');
  rewrite(f);
  writeln('Введите количество кубиков');
  readln(n);
  for i := 1 to n do
  begin
    writeln('Введите длину ребра кубика');
    readln(a[i].len);
    writeln('Введите цвет кубика');
    readln(a[i].color);
    writeln('Введите материал кубика');
    readln(a[i].material);
    write(f, a[i]);
    writeln;
  end;
  close(f);
  reset(f);
  while not eof(f) do
  begin
    inc(i);
    read(f, a[i]);
    sum := sum + (a[i].len) * (a[i].len) * (a[i].len);
    if a[i].color = 'красный' then
    begin
      c1 := c1 + 1;
    end;
    if a[i].color = 'синий' then
    begin
      c2 := c2 + 1;
    end;
    if a[i].color = 'жёлтый' then
    begin
      c3 := c3 + 1;
    end;
    if a[i].color = 'зелёный' then
    begin
      c4 := c4 + 1;
    end;
    
  end;
  writeln('Количество красных кубов: ', c1);
  writeln('Количество синих кубов: ', c2);
  writeln('Количество жёлтых кубов: ', c3);
  writeln('Количество зелёных кубов: ', c4);
  writeln('Объём всех кубов: ', sum);
end.

const
  Csize = 100;    // константа ограничивающая массив, то есть больше 100 записей в массив добавить нельзя 
  Tarr = array [1..Csize] of Tcube;        // тип-массив из записей
a:Tarr; // массив типа Tarr
[1..Csize] //  от 1 до 100

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