Program Schema3a;

Type
  MyArray ( u: Char ) = array [ ^B..u ] of MedInt;

Var
  O: MyArray ( 'O' );
  K: MyArray ( 'K' );
  p: ^MyArray;  (* $debug-tree="P"*)

begin
  p:= @O;  (* $debug-tree="P"*)
  write ( chr ( (SizeOf ( p^ ) + SizeOf (MedInt) - SizeOf (Char)) div SizeOf (MedInt) ) );
  p:= @K;
  write ( chr ( (SizeOf ( p^ ) + SizeOf (MedInt) - SizeOf (Char)) div SizeOf (MedInt) ) );
  writeln;
end.
