Перевести код с Pascal на С

Type kubik=Record
       Size:integer;
       Color,Mater:string;
     End;
Var f:file of kubik;
    g:text;{Для того чтобы вывести ответ в текстовый файл}
Procedure Zapol;
Var st:kubik;
    i,n:byte;
Begin
    Rewrite(f);
    write('Введите кол-во кубиков: ');readln(n);
    For i:=1 to n do
     Begin
      writeln('Введите информацию о ',i,'-ом кубике: ');
      write('Введите размер кубика: ');readln(st.Size);
      write('Введите цвет кубика: ');readln(st.Color);
      write('Введите материал кубика: ');readln(st.Mater);
      write(f,st);
     End;
End;
Procedure Vivod;
Var A:array[1..4] of byte;{Кол-во кубиков разных цветов}
    B:array[1..4] of integer;{Суммарный обьём кубиков}
    st:kubik;
    i:byte;
Begin
    For i:=1 to 4 do
     Begin
      A[i]:=0;
      B[i]:=0;
     End;
    Reset(f);Rewrite(g);
    While not Eof(f) do
    Begin
      read(f,st);
      if st.Color='красный' then
      Begin
        inc(A[1]);
        inc(B[1],st.Size);
      End;
      if st.Color='желтый' then
      Begin
        inc(A[2]);
        inc(B[2],st.Size);
      End;
      if st.Color='зеленый' then
      Begin
        inc(A[3]);
        inc(B[3],st.Size);
      End;
      if st.Color='синий' then
      Begin
        inc(A[4]);
        inc(B[4],st.Size);
      End;
    End;
    For i:=1 to 4 do
     writeln(g,A[i],'  ',B[i]);
End;
Begin
    Assign(f,'in.dat');
    Assign(g,'out.txt');
    Zapol;
    Vivod;
    writeln('Работа окончена!Вся информация в файле out.txt');
    Close(f);Close(g);
    readln;
End.