Курсовая работа: Текстовый редактор "Блокнот" с функцией шифрования - дешифрования классическими криптографическими методами

if a [i] ='Ё' then g: =7 else

if a [i] =' ' then g: =34 else

begin

x: =ord (a [i]) - 191;

if (x>=1) and (x<7) then

g: =x else

if (X>=7) and (X<34) then g: =x+1;

end;

for j: =1 to 34 do

if a1 [m,j] =g then

BEGIN

l: =j;

if l=7 then d: ='Ё' else

if l=34 then d: =' ' else

begin

if (l>=1) and (l<7) then

d: =chr (l+191);

if (l>=8) and (l<34) then

d: =chr (l-1+191);

END;

end;

m3. Text: =m3. Text+d;

end;

end;

end;

procedure TForm1. N20Click (Sender: TObject);

begin

form4. RadioGroup1. ItemIndex: =1;

b1. SetFocus; M2. Clear; M3. Clear;