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

for i: =n+1 downto 2 do

for j: =n+1 downto 2 do

if ord (mas [1, i]) >ord (mas [1,j]) then

for h: =1 to n+1 do

begin

mas1 [h]: =mas [h, i] ;

mas [h, i]: =mas [h,j] ;

mas [h,j]: =mas1 [h] ;

end;

for i: =n+1 downto 2 do

for j: =n+1 downto 2 do

if ord (mas [i,1]) >ord (mas [j,1]) then

for h: =1 to n+1 do

begin

mas1 [h]: =mas [i,h] ;

mas [i,h]: =mas [j,h] ;

mas [j,h]: =mas1 [h] ;

end;

for i: =2 to n+1 do

for j: =2 to n+1 do

m2. Text: =m2. Text+mas [i,j] ;

if c<>'' then goto 5;

7: end;

if form4. RadioGroup1. ItemIndex=4 then

begin

M2. Clear; m3. Clear;

c: =''; a: =''; b: ='';

A: = M1. Text;

b: =edit1. Text;