program Project1;
uses
SysUtils;
type MDate = record
Year : integer;
Month : string[10];
Number : integer;
end;
var f: file of MDate;
mas: array of MDate;
temp: MDate;
i, c: integer;
begin
randomize;
AssignFile(f, 'datefile.dat');
Writeln('0 - write in file, 1 - read from file');
readln(c);
case c of
0: begin
setlength(mas, 110);
Rewrite(f);
for I := 0 to 109 do begin
mas[i].Year:=random(44)+1970;
mas[i].Month:=inttostr(random(11)+1);
mas[i].Number:=random(30)+1;
write(f, mas[i]);
end;
end;
1: begin
Reset(f);
Seek(f, 100);
while not Eof(f) do begin
read(f, temp);
writeln(temp.Number, '.', temp.Month, '.', temp.year);
end;
end;
end;
readln;
end.
Рис.10.2 Програма в процесі виконання
