phonebook=record
                 name:string;{имя}
                 surname:string;{фамилия}
                 ot:string;{отчество}
                 namber_phon:word;{номер телефона}
                 st:string;{страна}
                 ob:string;{область}
                 city:string;{город}
                 stret:string;{улица}
                 haus_namber:byte;{дом}
                 flat_namber:byte;{квартира}
     end;