(типизированый файл)Уже три часа сижу над задачей не знаю как записать правильно

[idzaya2311]

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

нужен не сложный код, чтобы информация не сохранялась на каком-то левом файле, а просто выводилась на экран.
никак не получается что-то написать, помогите пожалуйста

[Stilet]

type
 tf=record
  col:Tcolor; len,mat:integer;
 end;
var f:file of tf; cols:array[1..255] of tf; sum:integer; ff:tf;i:integer;
begin
 assign(f,'file');reset(f);
 while not eof(f) do begin
  read(f,ff);
  inc(col[ff.col]);
  sum:=sum+ff.len*ff.len*ff.len;
 end;
 for i:=1 to 255 do if col[i]<>0 then writeln(i,'=',col[i]); writeln(sum,'=',sum);
end;

[idzaya2311]

Спасибо за программу, но у меня выдает неизвестное имя Tcolor и потому ничего не считает и не думает

[ZX Spectrum-128]

Type
Tcolor=1..4;

А файл у вас создан? Тогда она (программа) и дальше не будет считать и думать.