Помогите решить задачу в Паскали 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.