This script page was blocked. The script was reviewed and it works perfectly so this page doesn't need anymore editing.

This script demonstrates how to work with strings. This is a basic Caesar cipher example.

var i,index:byte;
write ('Verschiebeindex eingeben: '); readln (index);
write ('Wort eingeben: '); readln (s);
for i:=1 to length(s) do
write ('Neue String ist: ',s);

Explanation Edit

The indice of the cipher and the string to modify are first read from the keyboard. Then, a FOR statament passes through each of the string's chars and modifies them by adding indice to their ASCII code, thus pushing them indice chars further in the ASCII code.