В первый файл записать значения дней, во второй — значения месяцев для дат из исходного строкового файла

uses crt;
type str=string[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]<>'/'))
  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);
 end;
clrscr;
reset(f1);
writeln('Содержание исходного файла:');
while not eof(f1) do
 begin
  read(f1,s);
  writeln(s);
  val(copy(s,1,2),d,c);
  write(f2,d);
  val(copy(s,4,2),m,c);
  write(f3,m);
 end;
close(f1);
writeln('Содержание файла дней:');
reset(f2);
while not eof(f2) do
 begin
  read(f2,d);
  if d<10 then write(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.