Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Помогите решить задачу в Паскали ABC!!!
2.Вводится слово из 4 букв. Напечатать слово из букв, следующих по алфавиту.

Ответ оставил Гость

Const ss = абвгдеёжзийклмнопрстуфхцчшщъыьэюя;
Var s : String;
  i : Byte;
Begin
  Readln(s);
  For i:=1 to Length(s) do
    If s[i]=я then s[i]:=a else
      If Pos(s[i],ss)>0 then s[i]:=ss[Pos(s[i],ss)+1];
  Writeln(s);
end.