program Type_O_Rama(input, output); 
        
       type T1 = array [1..10] of char; 
            T2 = array [1..10] of T1; 
 
       var a,b: T1; 
           c: array [1..10] of array [1..10] of char; 
           d: T2; 
           e: char; 
           f: T2; 
 
       begin 
{1}      a := b; 
{2}      d[2] := a; 
{3}      c := d; 
{4}      d := f; 
{5}      c[2][1] := e; 
{6}      c[5] := b; 
{7}      f := c; 
       end.