Курсовая работа: Шифровка и дешифровка текста

VAR Xpos,i,v,e: integer;

Code,s1: string;

BEGIN

s1:='';

for i:=1 to length(DecryptStr) do

begin

xpos:=pos(' ',DecryptStr);

if xpos<=0 then

begin

val(DecryptStr,v,e);

s1:=s1+chr(v-password(PassW));

Decrypt:=s1;

exit;

end;

code:=copy(DecryptStr,1,xpos-1);

val(code,v,e);

s1:=s1+chr(v-password(PassW));

delete(DecryptStr,1,xpos);

end;

Decrypt:=s1;

END;

Для упрощения работы с программой конечного пользователя были созданы следующие процедуры:

PROCEDURE Menu – процедура, выводящая на экран основное меню программы. Меню организовано с помощью операторов writeln , readln и содержит следующие пункты:

1. Шифровать текст

2. Дешифровать текст

3. Выход

PROCEDURE Menu;

BEGIN

repeat