TP3/shell/tests/fixtures/t126_recordassign.pas

program record_assign;
type R = record
       A : integer;
       S : string[5];
     end;
var X, Y : R;
begin
  X.A := 42;
  X.S := 'hi';
  Y := X;
  writeln(Y.A, ' ', Y.S)
end.