unit ss;
interface
type
    peop=record
         fam:string[15];
         nam:string[15];
         rod:string[10];
         city:string[15];
         year:1900..2007;
         prof:string[15];
    end;

t=file of peop;


procedure create(var f1:t);
procedure obr(var f1:t);
procedure pech(var f1:t);

implementation

procedure create;
var
   n,i:byte;
   s:peop;
begin
reset(f1);
write('vvedite kol-vo= ');
readln(n);
for i:=1 to n do
  begin
   write('familiy= ');readln(s.fam);
   write('name= ');readln(s.nam);
   write('rod= ');readln(s.rod);
   write('city= ');readln(s.city);
   write('year= ');readln(s.year);
   write('Profession= ');readln(s.prof);
   write(f1,s);
  end;
close(f1);
end;


procedure pech;
var
  i,n:byte;
  s:peop;
begin
reset(f1);
for i:=1 to filesize(f1) do
  begin
   read(f1,s);
   with  s do
   write(fam,' ',nam,' ',rod,' ',city,' ',year,' ',prof,'  ');
   writeln;
  end;
end;


procedure obr;
var
   i:byte;
   s:peop;
   srv:integer;
begin
   reset(f1);
   srv:=0;
   for i:=1 to filesize(f1) do
       begin
          read(f1,s);
          srv:=srv+(2008-s.year);
       end;
   close(f1);
   srv:=srv div i;
   reset(f1);
   writeln('srednij vozrast = ',srv);
   writeln('rodstvenniki, vozrast kotorih menshe srednego:');
   writeln;
   for i:=1 to filesize(f1) do
         begin
           read(f1,s);
           if (2008-s.year)< srv then
               begin
                 with s do
                      begin
                         writeln(fam,' ',nam,' ',rod,' ',city,' ',year,' ',prof);
                         writeln('-------------------------------------------------');
                      end;
               end;
         end;
     close(f1);
end;

end.

program kk;
uses crt,SS;
var
i:byte;
f1:t;
begin
clrscr;
    assign(f1,'data.dbf');

{$I-}
reset(f1);
{$I+}
if Ioresult<>0 then
   begin
   rewrite(f1);
create(f1);
   end;
{create(f1);}

pech(f1);
obr(f1);
readln;
end.

unit ss;
interface
type
    peop=record
         fam:string[15];
         nam:string[15];
         rod:string[10];
         city:string[15];
         year:1900..2007;
         prof:string[15];
    end;

t1=text;
t= file of peop;


procedure create(var f1:t);
procedure obr(var f1:t);
procedure pech(var f1:t);

implementation

procedure create;
var
   kol,i:byte;
   chel:peop;
begin
rewrite(f1);
write('vvedite kol-vo= ');
readln(kol);
for i:=1 to kol do
with chel do
  begin
   write('familiy= ');readln(s.fam); writeln(f1, fam);
   write('name= ');readln(s.nam); writeln(f1, nam);
   write('rod= ');readln(s.rod); writeln(f1, rod);
   write('city= ');readln(s.city); writeln(f1, city);
   write('year= ');readln(s.year); writeln(f1, year);
   write('Profession= ');readln(s.prof);
  
  end;
close(f1);
end;


procedure pech(var f:t1; var kol:byte);
var
  i,kol:byte;
  chel:peop;
begin
rewrite(f);
while not(f) do
  with chel do
      begin
readln(f,fam); write(fam,' ');
readln(f,name); write(name,' ');
readln(f,rod); write(rod,' ');
readln(f,city); write(city,' ');
readln(f,year); write(year,' ');
readln(f,prof); write(prof,' ');
writeln;
{writeln(fam,' ',),}
end;
close(f);
end;


procedure obr;
var
   i:byte;
   s:peop;
   srv:integer;
begin
   reset(f1);
   srv:=0;
   for i:=1 to filesize(f1) do
       begin
          read(f1,s);
          srv:=srv+(2008-s.year);
       end;
   close(f1);
   srv:=srv div i;
   reset(f1);
   writeln('srednij vozrast = ',srv);
   writeln('rodstvenniki, vozrast kotorih menshe srednego:');
   writeln;
   for i:=1 to filesize(f1) do
         begin
           read(f1,s);
           if (2008-s.year)< srv then
               begin
                 with s do
                      begin
                         writeln(fam,' ',nam,' ',rod,' ',city,' ',year,' ',prof);
                         writeln('-------------------------------------------------');
                      end;
               end;
         end;
     close(f1);
end;

end.

unit ss;
interface
type
        zap=record
            fam:string[10];
        nam:string[10];
        rod:string[10];
        town:string[10];
        byear:1900..2050;
        work:string[10];
            end;
    t1=text;
    
var
    ft1:t1;
procedure create(var f1:t1);
procedure obr(var f1:t1);
procedure pech(var f1:t1);

implementation

procedure create(var f1:t1); var
            lzap:zap;
            i:byte;
begin
    rewrite(f1);
        for i:=1 to 3 do
                with lzap do
            begin
                writeln('fam='); readln(fam); writeln(f1,fam);
                  writeln('nam='); readln(nam); writeln(f1,nam);
                writeln('rod='); readln(rod); writeln(f1,rod);
                writeln('town='); readln(town); writeln(f1,town);
                writeln('byear='); readln(byear); writeln(f1,byear);
                writeln('work='); readln(work); writeln(f1,work);
                            end;
                writeln(f1,#26);
                    close(f1);
    end;


procedure pech(var f1:t1);
    var
       lzap:zap;
       i:byte;
    begin
    reset(f1);
        while not eof(f1) do
            with lzap do
                begin
                    readln(f1,fam);
                      readln(f1,nam);                                                                readln(f1,rod);
                      readln(f1,town);
                             readln(f1,byear);
                    readln(f1,work);
                      writeln(fam,' ',nam,' ',rod,' ',town,' ', byear,' ',work);
                  writeln('------------------------------------');
            end; close(f1);
end;

procedure obr;
var
   i:byte;
   s:zap;
   srv:integer;
begin
   reset(f1);
   srv:=0;
   for i:=1 to filesize(f1) do
       begin
          read(f1,s);
          srv:=srv+(2008-s.year);
       end;
   close(f1);
   srv:=srv div i;
   reset(f1);
   writeln('srednij vozrast = ',srv);
   writeln('rodstvenniki, vozrast kotorih menshe srednego:');
   writeln;
   for i:=1 to filesize(f1) do
         begin
           read(f1,s);
           if (2008-s.year)< srv then
               begin
                 with s do
                      begin
                         writeln(fam,' ',nam,' ',rod,' ',city,' ',year,' ',prof);
                         writeln('-------------------------------------------------');
                      end;
               end;
         end;
     close(f1);
end;

end.