program test;

   var
      s: string[80];
      p01: packed array [1..01] of char;
      p02: packed array [1..02] of char;
      p03: packed array [1..03] of char;
      p04: packed array [1..04] of char;
      p05: packed array [1..05] of char;
      p06: packed array [1..06] of char;
      p07: packed array [1..07] of char;
      p08: packed array [1..08] of char;
      p09: packed array [1..09] of char;
      p10: packed array [1..10] of char;
      p11: packed array [1..11] of char;
      p12: packed array [1..12] of char;
      p13: packed array [1..13] of char;
      p14: packed array [1..14] of char;
      p15: packed array [1..15] of char;
      p16: packed array [1..16] of char;
      p17: packed array [1..17] of char;
      p18: packed array [1..18] of char;
      p19: packed array [1..19] of char;
      p20: packed array [1..20] of char;

   procedure proc;

      begin
         s := '90';
         s := '12345';
         s := '12345';
         s := '1234567890';
         s := '1234567890';
               { . . . . . . . . . .}
         p05 := '7890A';
         p06 := '7890AB';
         p05 := 'FGHIJ';
         p06 := 'EFGHIJ';
         p07 := '1234567';
         p06 := '123456';
         p20 := '1234567890ABCDEFGHIJ';
               { . . . . . . . . . .}
         p05 := 'EFGHI';
         p06 := 'DEFGHI';
         p07 := '1234567';
         p06 := '123456';
         p19 := '1234567890ABCDEFGHI';
      end;

  begin
  end.



