prog;

begin
  var a, b : array[-5..5] of string

  b[0] := "hello";
  a := b;
  a[1] := "world";

  write a;
  write b;

end;
end prog