program ideone;
type
TRec = record
num : Integer;
st : String;
end;
var
rec1, rec2: TRec;
begin
rec1.num := 1;
rec1.st := 'aaa';
rec2 := rec1;
writeln(rec2.st);
end.
cHJvZ3JhbSBpZGVvbmU7CnR5cGUKICAgIFRSZWMgPSByZWNvcmQKICAgICAgIG51bSAgOiBJbnRlZ2VyOwogICAgICAgc3QgICA6IFN0cmluZzsKICAgIGVuZDsKdmFyCiAgcmVjMSwgcmVjMjogVFJlYzsKYmVnaW4KCXJlYzEubnVtIDo9IDE7CglyZWMxLnN0IDo9ICdhYWEnOwoJcmVjMiA6PSByZWMxOwoJCgl3cml0ZWxuKHJlYzIuc3QpOwplbmQu