program test4;
var a1:array[2..10,1..5] of integer;

procedure one(var a:array[l..u:integer]of integer);
begin
a[l]:=u;
a[u]:=l;
end;

procedure two(var b:array[l1..u1:integer;l2..u2:integer]of integer);
begin
one(b[l1]);
end;

begin
two(a1)
end.