type TAbonent=record
              FIO:string[30];
              Adress:record
                     street:string[20];
                     num_home:integer;
                     num_flat:integer
                     end;
              numberphone:string[11]
              end;