Требуется написать программу шифрования строковых переменных и ключ от шифра пользователь вводил сам

[Bikey]

Всем добрый вечер. Вот сегодня вечером я решил продолжить моё самообучение Паскаля и вот мне неожиданный сюрприз от него...
На данный момент я завершил изучение шифрования символов и строковых перемененных.. И вот в конце главы "Домашняя работа". Требуется написать программу шифрования строковых переменных и чтобы ключ от шифра пользователь вводил сам. И вот когда я дописал программу и решил её проверить получаю, что моя программа ничего не делает... Она просто возвращает мне мой же текст. Ни шифрование, ни дешифровка не срабатывают. А во время пошаговой проверки мне выдают странную ошибку

Run Time Error 4209155
Error address $00000000

Так же вместе с данной ошибкой внизу появляется окошко "Call Stack" и в нём:
027BF1B8 SYSTEM_HANDLEERRORADDRFRAME$LONGINT $$POINTER$POINTER()
027BF1B8 SYSTEM_HANDLEERRORFRAME$LONGINT$POI NTER()
027BF1B8 U_SYSTEM_INPUT()
Также наблюдается странное поведение самой среды... Никакой другой файл кроме этого она больше не хочет проверять пошагово и всё время открывает один и тот же файл.
Если кто встречался с подобной проблемой помогите...

[Poma][a]

Не плохо было бы увидеть код..

[Bikey]

Сообщение от Poma][a

Не плохо было бы увидеть код..

Простите я только зарегистрировался на этом сайте и не знаю как перенести сюда код. Обычным копирование не получается, а по другому я не знаю как.


http://saveimg.ru/thumbnails/24-08-1...05ef7f17a2.png
http://saveimg.ru/thumbnails/24-08-1...eddaa5198b.png
http://saveimg.ru/thumbnails/24-08-1...d134efd224.png

Простите как смог)

[Stilet]

Обычным копирование не получается

Если код больше 5000 символов то лучше заархивируй каалог с файлами проекта. Нажми на кнопку "Расширенный режим" под полем ввода поста и внизу будет прикрепление файлов. Или залей на какой-нить хостинг а сюда ссылку дай.

[Bikey]

Сообщение от Stilet

Если код ...

Благодарю. В предыдущем моём сообщение ссылки на скрины кода.

[Stilet]

В предыдущем моём сообщение ссылки на скрины кода.

Неа. Они не отображаются.

[Bikey]

Не знаю почему прошлые ссылки не работают.. Но вот попробовал так сделать.

[Bikey]

На втором скрине, на моменте Readln(S) Происходит ошибка которую я описывал.

[Stilet]

Происходит ошибка которую я описывал.

Открой тот pas файл в блокноте скопируй из него и вставь сюда.

[Bikey]

Function CryptCh(arg : Char; key : integer):Char;
Var x:integer;
Begin
x:=ord(arg)+key;
If x>255
Then x:=x-256+32;
CryptCh:=Char(x);
End;
Function EnCryptCh(arg: Char; key : integer):Char;
Var x : integer;
Begin
x:=ord(arg)+key;
If x<32
Then x:=x-255+32;
EnCryptCh:=Char(x);
End;
Procedure CryptStr(var arg : string ; key : integer);
Var x:integer;
Begin
For x:=1 to Length(arg) do arg[x]:=CryptCh(arg[x],key);
End;
Procedure EnCryptStr(var arg : string; key : integer);
Var x : integer;
Begin
For x:=1 to Length(arg) do arg[x]:=EnCryptCh(arg[x],key);
End;
Var key,x,y:integer;
arg : string;
Begin
Repeat
Writeln('Џ®¦*©«гбв® ўўҐ¤ЁвҐ Є«оз Є иЁдаг : ');
Readln(y); key:=y;
Writeln('‚ўҐ¤ЁвҐ бва®Єг: ');
Readln(arg);
Writeln('^o^ —⮦Ґ ¬*Ґ ᤥ«*вм б нв®© бва®Є®© '+' 1 - §*иЁда®ў*вм, '+
' 2 - ¤ҐиЁда®ў*вм, '+
' Їа®зҐҐ - ўл©вЁ ');
Readln(x);
Case X of
1: CryptStr(arg,key);
2: EnCryptStr(arg,key);
Else Break;
End;
Writeln(arg);
Readln;
Until False
End.