procedure modify(var a : array [lo..hi : integer] of char);
begin
a[lo] := a[hi];
end;

procedure f(a, b : array [lo..hi : integer] of char);
begin
writeln(a[lo]);
writeln(b[lo]);
...