Файл с записями

Program JIa6opaTopHa9I5;
type
 Data=record
  mouth:(jan,feb,mar,apr,may,jun,jul,auv,sep,oct,nov,dec);
  day:1..31;
  end;
 FD= file of data;
Var
 d,s,w:FD;
 x,p,o:string;
 y,i:integer;
 z:data;
 lo:boolean;
Procedure zap (var q:fd;Var y,z:fd);
 var
 a,b:data;
 e,f:1..31;
 begin
 reset(q);
 rewrite(y);
 rewrite(z);
  while not eof(q) do begin
   read(q, a);
   case a.mouth of
    jan, feb, dec: write(y, a);
    jun, jul,auv: write(z, a)
   end;
  end;
  close(q);
  close(y);
  close(z)
  end;
Procedure result(var q:fd);
 var
  f,g:data;
 begin
  reset(q);
  while not eof(q) do begin
   read(q,f);
   case f.mouth of
    jan: write('jan ');
    feb: write('feb ');
    mar: write('mar ');
    apr: write('apr ');
    may: write('may ');
    jun: write('jun ');
    jul: write('jul ');
    auv: write('auv ');
    sep: write('sep ');
    oct: write('oct ');
    nov: write('nov ');
    dec: write('dec ');
    end;
  write(f.day);
  end;
  close(q)
 end;
Begin
 Write('Write filename=>');
 read(x);
 assign(d,x);
 rewrite(d);
 lo:=false;
 repeat
  Writeln('VVedite nomer mesyaca ');
  read(y);
  case y of
  1: z.mouth:=jan;
  2: z.mouth:=feb;
  3: z.mouth:=mar;
  4: z.mouth:=apr;
  5: z.mouth:=may;
  6: z.mouth:=jun;
  7: z.mouth:=jul;
  8: z.mouth:=auv;
  9: z.mouth:=sep;
  10: z.mouth:=oct;
  11: z.mouth:=nov;
  12: z.mouth:=dec
  else lo:=true
  end;
  if not(lo) then
   begin
    writeln('vvedite chislo');
    read(z.day);
    write(d,z);
   end;
 until(y=13);
 close(d);
Writeln(' vvedite file 1');
read(p);
assign(s,p);
writeln(' vvedite file 2');
read(o);
assign(w,o);
zap(d,s,w);
Writeln('file ', x,': ');
result(d);
Writeln('file ',p,' : ');
result(s);
Writeln('file',o,': ');
result(w);
readln;
end.