Шифр Цезаря

var
s,l:string;
g, h, p:integer;
Begin
Readln(s);
for g:=1 to 31 do
 begin
 l:=s;
 for h:= 1 to length(s) do
  begin
  p:=ordUnicode(l[h])+g;
  if p>1103 then p:=p-32;
  l[h]:=ChrUnicode(p);
  end;
 write(l);
 write('  Сдвиг:');
 write(g);
 writeln('  Обр.сдв:',32-g);
 end;
end.