Дан файл, содержащий зашифрованный русский текст. Каждая буква которого…

const alphabet="яабвгдеежзийклмнопрстуфхцчшщъыьэюя"; var FileName: stringprocedure ReadFile (FileName: string); var f: text; s: string; i,k: integer; begin assign (f,FileName); reset (f); while not eof (f) do begin { пока не конец файла } readln (f, s); for i: =1 to length (s) do begin k: =pos (s[i], alphabet); if k=1 then k=length (alphabet); {это приколы изза я} if k>1 then s[i]: =alphabet[k-1]; end; writeln (s); end; close (f); end; Begin read (FileName); ReadFile; readln; End.