String3

//napisati program pomocu koga se zadati string sifrira zadatom sifrom

program str6;
var
s,sifra,s1:string;
i,j:integer;
slovo,novo:char;










begin
sifra:='bcdefghijklmnopqrstuvwyxza';
writeln('string je: '); readln(s);
s1:=s;
for i:=1 to length(s1) do
    begin
    slovo:=s1[i];
    s1[i]:=sifra[ord(slovo)-ord('a')+1];

    end;

writeln(s);
writeln(s1);
readln;
end.