program Records;

uses Crt;

type TAdr=record
       N,V: string;
         A: byte;
     end;

var Adr1, Adr2: TAdr;

begin