Răspuns:
program deplasareDreapta;
var t:string;
i:integer;
begin
write('introdu textul: '); read(t);
for i:=1 to length(t) do
begin
if t[i]=' ' then t[i]:='_'
else
if t[i]='Z' then t[i]:='A'
else t[i]:=chr(ord(t[i])+1);
end;
writeln('Sirul modificat: ',t);
end.
Explicație: