Вывести адреса и часы работы всех детских библиотек данного района

program bibchild;
 
type
  bib = record
    number: integer;
    age: char;
    area: string[20];
    addr: string[100];
    open: string[30]
  end;
  outf = record
    addr: string[100];
    open: string[30]
  end;
 
var
  a: bib;
  c: outf;
  fi: file of bib;
  fo: file of outf;
 
begin
  assign(fi, 'c:\all.bib');
  reset(fi);
  assign(fo, 'c:\child.bib');
  rewrite(fo);
  while not(eof(fi)) do
    begin
      read(fi, a);
      if a.age = 'д' then
        begin
          c.addr := a.addr;
          c.open := a.open;
          write(fo, c)
        end
    end;
  close(fi);
  close(fo)
end.

program bibchild;
 
type
  bib = record
    number: integer;
    age: char;
    area: string[20];
    addr: string[100];
    open: string[30]
  end;
  outf = record
    addr: string[100];
    open: string[30]
  end;
 
var
  a: bib;
  c: outf;
  s: char;
  fi: file of bib;
  fo: file of outf;
 
procedure fill;
begin
  assign(fi, 'c:\all.bib');
  rewrite(fi);
  repeat
    with a do
      begin
        write('Номер? '); readln(number);
        write('Детская? '); readln(s);
        if s = 'д' then age := s
                   else age := 'в';
        write('Район? '); readln(area);
        write('Адрес? '); readln(addr);
        write('Часы работы? '); readln(open);
      end;
    write(fi, a);
    s := ' ';
    writeln('Следующая запись (д/н): '); readln(s)
  until s = 'н';
  close(fo)
end;
 
procedure select;
begin
  assign(fi, 'c:\all.bib');
  reset(fi);
  assign(fo, 'c:\child.bib');
  rewrite(fo);
  while not(eof(fi)) do
    begin
      read(fi, a);
      if a.age = 'д' then
        begin
          c.addr := a.addr;
          c.open := a.open;
          write(fo, c)
        end
    end;
  close(fi);
  close(fo)
end;
 
procedure viewch;
begin
  assign(fo, 'c:\child.bib');
  reset(fo);
  while not(eof(fo)) do
    begin
      read(fo, c);
      writeln(c.addr, ' ', c.open)
    end;
  close(fo)
end;
 
procedure viewall;
begin
  assign(fi, 'c:\all.bib');
  reset(fi);
  while not(eof(fi)) do
    begin
      read(fi, a);
      with a do
        begin
          write(number);
          if age = 'д'
            then writeln(', детская.')
            else writeln;
          writeln(area);
          writeln(addr);
          writeln(open);
          writeln
        end
    end;
  close(fi)
end;
 
begin
  repeat
    writeln('Выберите действие:');
    writeln('1 - заполнение базы,');
    writeln('2 - просмотр базы,');
    writeln('3 - выбор детских библиотек,');
    writeln('4 - просмотр детских библиотек,');
    writeln('5 - выход из программы.');
    write('Действие: '); readln(s);
    case s of
      '1': fill;
      '2': viewall;
      '3': select;
      '4': viewch
    end;
  until s = '5'
end.