Дан файл, содержащий зашифрованный русский текст. Каждая буква которого заменяется на следующую за ней (я на а). Получить в новом файле расшифровку данного текста. Решить в паскале с текстовыми файлами.

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.