program upr1;
const
 n=7;
type
 home=record
       nom,pl,nk,et:integer;
      end;
 pupil=record
        fam,name,ot:string[15];
        inf:home;
       end;

var
 mas:array[1..n] of pupil;
 i,k:integer;
 F,F1: File of pupil;

procedure p1(var a:pupil);
begin
 with a do
  begin
   write('Фамилия: ');
   readln(fam);
   write('Имя: ');
   readln(name);
   write('Отчество: ');
   readln(ot);
   write('Номер квартиры: ');
   readln(inf.nom);
   write('Площадь квартиры: ');
   readln(inf.pl);
   write('Количество комнат: ');
   readln(inf.nk);
   write('Этаж: ');
   readln(inf.et);
  end;
end;

procedure p2(a:pupil);
begin
 with a do
  begin
   write(fam,'':15-length(fam));
   write(name,'':10-length(name));
   write(ot,'':10-length(ot));
   with inf do
    writeln(nom:8,pl:8,nk:8,et:8);
  end;
end;

Begin
 Assign(F,'komnata.dat');
 Rewrite(f);
 writeln('Введите информацию о ',n,' жильцах');
 for i:=1 to n do
  begin
   p1(mas[i]);
  end;
 writeln('Список жильцов:');
 writeln(' n     Ф            И         О             Nкв.     пл.   кол.к.   этаж');
 for i:=1 to n do
  begin
   write(i:2,'. ');
   p2(mas[i]);
   write(f,mas[i]);
  end;
 write('Файл записан');
 close(f);
 readln
end.

program upr2;
const
 n=7;
type
 home=record
       nom,pl,nk,et:integer;
      end;
 pupil=record
        fam,name,ot:string[15];
        inf:home;
       end;
var
 f,f2: file of pupil;
 s:pupil;
 i,l,fl_n:Integer;
 Nmb:Set of Byte;

begin
 Nmb:=[];
 l:=0;
 assign(f,'komnata.dat');
 reset(f);
 assign(f2,'file1.dat');
 rewrite(f2);
 writeln('Информация о 3-х и 4-х комнатных квартирах:');
 while not eof(f) do
  begin
   read(f,s);
   if (s.inf.nk=3) or (s.inf.nk=4) then
    begin
     write(f2,s);
     l:=l+1 ;
    end;
  end;
 close(f);
 close(f2);
 writeln('Количество таких квартир: ',l);
 writeln('    Ф            И         О             Nкв.     пл.   кол.к.   этаж');
 for i:=1 to l do
  begin
   reset(f2);
   while not eof(f2) do
    begin
     read(f2,s);
     if not(s.inf.nom in Nmb) then
      begin
       fl_n:=s.inf.nom;
       reset(f2);
       repeat
        read(f2,s);
        if s.inf.nom=fl_n then
         with s do
          begin
           write(fam,'':15-length(fam));
           write(name,'':10-length(name));
           write(ot,'':10-length(ot));
           with inf do
            writeln(nom:8,pl:8,nk:8,et:8);
          end;
        until eof(f2);
       Nmb:=Nmb+[fl_n];
      end;
    end;
   close(f2);
  end;
 readln
end.