program arraytofile;

const count : array[0..9] of byte =
              (0,1,2,3,4,5,6,7,8,9);

var filevar : text;
    dummy   : byte;
    line    : byte;

begin
assign(filevar,'count2.dat');
rewrite(filevar);
writeln(filevar,'const count : array[0..9] of byte =(');
line:=0;
for dummy:=0 to 9 do
 begin
  line:=line+1;
  write(filevar, count[dummy]);
  if (dummy<9) then
   begin
    write(filevar,',');
     if (line>2) then
      begin
       writeln(filevar);
       line:=0;
      end;
   end;
  end;
 write(filevar,');');
 close(filevar);
end.