Пример решения данной задачи на языке программирования Pascal:

program DecryptText;
var
inputFile, outputFile: text;
encryptedChar, decryptedChar: char;
begin
assign(inputFile, 'encrypted_text.txt');
reset(inputFile);
assign(outputFile, 'decrypted_text.txt');
rewrite(outputFile);
while not eof(inputFile) do
begin
read(inputFile, encryptedChar);
// Расшифровываем символы
if encryptedChar = 'я' then
decryptedChar := 'а'
else
decryptedChar := chr(ord(encryptedChar) + 1);
write(outputFile, decryptedChar);
end;
close(inputFile);
close(outputFile);
end.

Прежде чем запустить эту программу, убедитесь, что у вас есть файл encrypted_text.txt, содержащий зашифрованный текст, который нужно расшифровать. Результат будет записан в файл decrypted_text.txt.

Программа открывает файл с зашифрованным текстом, читает по одному символу, расшифровывает его и записывает в новый файл.