program TestConformantArrays ( Output );

procedure Test1 (var a: array[j..k: integer] of Char);

var
  i: integer;

begin
  for i := j to k do
    a[i] := chr (k);
end;

var
  a1: array[0..ord ( 'O' )] of char;
  a2: array[0..ord ( 'K' )] of char;

begin
  Test1 (a1);
  Test1 (a2);
  writeln ( a1 [ 5 ], a2 [ 13 ] );
end. 
