A final suggestion (at least for the day).
Extract the routine the does the actual rotation from the "Ver" procedure.
Makte this procedure accept a variable that controls the amount of rotation (this must be able to be negative).
Inside "Rue" just call this routine, then do "Out" (and put a writeln() after calling "Out", it makes for nicer output.
With the apprpriate modifications I can make the proram output this:
C:\Users\Bart\LazarusProjecten\ConsoleProjecten\bugs\Caesar>caesar
This is program Caesar, which performs ROT encoding.
Which action do you want to perform?
Read in (E); Encode (V); Decode (R): e
Enter letter 1 of 10: A
Enter letter 2 of 10: B
Enter letter 3 of 10: C
Enter letter 4 of 10: D
Enter letter 5 of 10: E
Enter letter 6 of 10: F
Enter letter 7 of 10: G
Enter letter 8 of 10: H
Enter letter 9 of 10: I
Enter letter 10 of 10: J
Which action do you want to perform?
Read in (E); Encode (V); Decode (R): v
Move letters how many positions? 5
F, G, H, I, J, K, L, M, N, O,
Which action do you want to perform?
Read in (E); Encode (V); Decode (R): r
E, F, G, H, I, J, K, L, M, N,
D, E, F, G, H, I, J, K, L, M,
C, D, E, F, G, H, I, J, K, L,
B, C, D, E, F, G, H, I, J, K,
A, B, C, D, E, F, G, H, I, J, <<== the oriinal input
@, A, B, C, D, E, F, G, H, I,
?, @, A, B, C, D, E, F, G, H,
>, ?, @, A, B, C, D, E, F, G,
=, >, ?, @, A, B, C, D, E, F,
<, =, >, ?, @, A, B, C, D, E,
;, <, =, >, ?, @, A, B, C, D,
:, ;, <, =, >, ?, @, A, B, C,
9, :, ;, <, =, >, ?, @, A, B,
8, 9, :, ;, <, =, >, ?, @, A,
7, 8, 9, :, ;, <, =, >, ?, @,
6, 7, 8, 9, :, ;, <, =, >, ?,
5, 6, 7, 8, 9, :, ;, <, =, >,
4, 5, 6, 7, 8, 9, :, ;, <, =,
3, 4, 5, 6, 7, 8, 9, :, ;, <,
2, 3, 4, 5, 6, 7, 8, 9, :, ;,
1, 2, 3, 4, 5, 6, 7, 8, 9, :,
0, 1, 2, 3, 4, 5, 6, 7, 8, 9,
/, 0, 1, 2, 3, 4, 5, 6, 7, 8,
., /, 0, 1, 2, 3, 4, 5, 6, 7,
-, ., /, 0, 1, 2, 3, 4, 5, 6,
,, -, ., /, 0, 1, 2, 3, 4, 5,
Not sure if this is what you want it to do, but if so, see that it also works with uppercase input.
(It might be nice to remove the last "," from the output of the "Out" procedure.)
Bart