Типизированые файлы: придумать задание к программе

uses crt;
type str=string[10]; //тип строка длиной до 10 символов
var f1:file of str;//типизированный файл строк
    f2,f3:file of integer;//типизированные файлы целых чисел
    s:str; //строка
    n,i,j,d,m,c:integer;//разные переменные целого типа
begin
clrscr;
assign(f1,'data');//создаем нужные файлы
rewrite(f1);
assign(f2,'day');
rewrite(f2);
assign(f3,'month');
rewrite(f3);
write('Сколько дат ввести n=');
readln(n);
writeln('Введите ',n,' дат в формате дд/мм/гггг');
for i:=1 to n do
 begin
  repeat
  readln(s); //читаем строку
  c:=0;
  for j:=1 to 10 do
  if((j in [3,6])and (s[j]<>'/'))//если 3 и 6 символы не /
  or((j in [1,2,4,5,7..10])and not(s[j] in ['0'..'9']))//или остальные не цифры
  then c:=1;
  if c=1 then writeln('Дата введена неверно, повторите');
  until c=0;
  write(f1,s); //пишем дату в 1 файл
 end;
clrscr;
reset(f1);//открываем его
writeln('Содержание исходного файла:');
while not eof(f1) do
 begin
  read(f1,s); //читаем
  writeln(s);//выводим
  val(copy(s,1,2),d,c);//преобразуем первые 2 символа в число
  write(f2,d); //пишем в файл 2
  val(copy(s,4,2),m,c); //то же 4 и 5 символы
  write(f3,m); //в файл 3
 end;
close(f1);
writeln('Содержание файла дней:');
reset(f2);
while not eof(f2) do
 begin
  read(f2,d);
  if d<10 then write(0);//если 0..9,до ставим впереди 0
  write(d,' ');
 end;
close(f2);
writeln;
writeln('Содержание файла месяцев:');
reset(f3);
while not eof(f3) do
 begin
  read(f3,d);
  if d<10 then write(0);
  write(d,' ');
 end;
close(f3);
readln
end.