var
  tahun, bulan, tgl : word;
...
  tahun := dbf2[cycle] div 10000;
  bulan := (dbf2[cycle] mod 10000 ) div 100;
  tgl := (dbf2[cycle] mod 10000 ) mod 100;
  dbf1[cycle] := EncodeDate(tahun, bulan, tgl);

  tahun := angka1 mod 100 + 2000;
  bulan := angka1 mod 10000 div 100;
  tgl := angka1 div 10000;

@halimanh:

  tahun := angka1 mod 100 + 2000;
  bulan := angka1 mod 10000 div 100;
  tgl := angka1 div 10000;

  tahun := dbf2[cycle]  mod 100 + 2000;
  bulan := dbf2[cycle]  mod 10000 div 100;
  tgl := dbf2[cycle]  div 10000;
dbf1[cycle] := EncodeDate(tahun, bulan, tgl);