freepascal.ru

Код: Выделить всё

Program gen;
Uses  crt;
const n=60;
Var  d, m, y : integer;
    i, a : integer;
   f : file of integer;
Begin
ClrScr;
randomize;
assign (f, 'd:\data.dat');
rewrite(f);
for i:=1 to n do
 begin
   d:=random(31);
   m:=random(12);
   y:=random(99);
  end;
  write(f, 'd.m.y');
close(f);
end.

Код: Выделить всё

write(f, 'd.m.y');

Код: Выделить всё

intDate:= Random(1294012800);
strDaye:=UnixTimeToDateTime(indDate);

Код: Выделить всё

Program gen1;
Uses  crt, dateutils;
const n=60;
Var  intDate : integer;
      strDate : string;
   f : file of string;
Begin
ClrScr;
randomize;
assign (f, 'd:\date.dat');
rewrite(f);
intDate:= Random(4102358400);
strDate:=UnixToDateTime(intDate);
  write(f,  strDate);
close(f);
end.