IVER_1

Var
    S: String;
    C: Byte;

{$Q-}
Procedure Encode;
Var
    I: Integer;
Begin
    Write('Input string to encode: ');
    ReadLn(S);
    Write('Input code offset: ');
    ReadLn(C);
    {C:= Random(255) + 1;}
    WriteLn('Code offset: ', C);
    Write('Coded string: ');
    For I:= 1 To Length(S) Do Begin
      Inc(S[I], C); Write(Ord(S[I]), ' ');
    End;
    WriteLn;
End;

Procedure Decode;
Var
    I: Integer;
Begin
    Write('Input string to decode: ');
    ReadLn(S);
    Write('Input code offset: ');
    ReadLn(C);
    For I:= 1 To Length(S) Do Dec(S[I], C);
    WriteLn('Decoded string: ', S);
End;

Begin
    Randomize;
    While True Do Begin
      Write('0 - exit, 1 - encode, another value - decode string: ');
      ReadLn(C);
      Case C Of
        0: Break;
        1: Encode;
        Else Decode;
      End;
    End;
End.