Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:
что я написал не так? программа не работает, pascalabc

Напишите программу генерации шифра для заданных a и s по формуле:
Ci = (a*Pi + s) mod N ,
где Pi – порядковый номер символа открытого текста (0 ≤ Pi ≤ N-1);
Ci – порядковый номер символа зашифрованного текста (0 ≤ Ci ≤ N-1);
N – размер алфавита;
a – десятичный коэффициент;
s – коэффициент сдвига.
Вот задание:
Напишите программы шифрования и расшифрования для метода моноалфавитной подстановки по заданному шифру. Язык русский. Шифр, открытый текст и зашифрованный текст должны находиться в текстовых файлах. Тестовый файл с открытым текстом должен содержать не менее 1000 символов текста художественного произведения.
И что изменить в программе, чтобы наоборот дешифровать текст?

Приложение:
function Shifr(self:string;a,s:real):string; extensionmethod;
result:=self.tochararray.select(x->ChrAnsi(byte(integer(a*OrdAnsi(x)+s) mod 255)).joinintostring
begin
readalltext('in.txt').shifr(readlnreal('Введите десятичный коэффициент'),readlnreal('Введите коэффициент сдвига')).writealltext('out.txt');
end.