PROGRAM String1(Output);
    TYPE
        Str10 = PACKED Array[1..10] OF Char;
        Str20 = PACKED Array[1..20] OF Char;
    VAR
        A: Str10;
        B: Str10;
BEGIN
    A := 'Hello';
    B := A;

    WriteLn(A);
    WriteLn(B);
END.