Program Shifr;
var
  Shsl,{зашифрованное слово}
  Sh,{шифр текущего символа}
  Sl: string;{слово}
  al,{номер по алфавиту минус номер в слове}
  i: integer;{счетчик}
begin {тело программы}
  Write('Задайте слово: ');{ввод}
  ReadLn(Sl);
  Shsl := '';{очистили строку}
  for i := 1 to Length(Sl) do{шифруем}
    begin
      case UpCase(sl[i]) of{определяем числовой шифр}
        'A'..'Z': al := Ord(UpCase(Sl[i])) - 64 - i;{для английского алфавита}
        'А'..'Я': al := Ord(Sl[i]) - 127 - i;{для русского алфавита}
        'а'..'п': al := Ord(Sl[i]) - 159 - i;{его символы не идут подряд}
        'р'..'я': al := Ord(Sl[i]) - 207 - i;{и функция UpCase не работает}
        else al := Ord('*');{звездочка в случае ошибки}
      end;
      Str(al, Sh);{перевод в строку}
      Shsl := Shsl + sh + ' ';{формируем зашифрованное слово}
    end;
  WriteLn('Зашифрованное слово: ' + ShSl);
  ReadLn; {ждем нажатия клавиши Enter}
end.