program test(output);

type
  name = array[1..4] of char;

rec = record
  x :boolean;
  y :name;
end;

var
  foo, bar :rec;
  nm :name;

begin
  foo.y := '    ';
  foo.y[1] := 'n';
  bar := foo;
  nm := '    ';
  nm[1] := 'n';
{ writeln('foo =', foo.y, '<- bar =', bar.y, '<- nm =', nm, '<-'); }
  if (foo.y = nm) then
        writeln('OK')
  else
        writeln('failed');
end.
