задача

[Megapol]

Зафиксируем натуральное k и перестановку чисел 1,… k (ее можно задать с помощью последовательности натуральных чисел p1,… pk, в которую входит каждое из чисел 1,… k). При шифровке в исходном тексте к каждой из последовательных групп по k символов применяется зафиксированная перестановка. Пусть k=4 и перестановка есть 3, 2, 4, 1. Тогда группа символов s1,s2,s3,s4 заменяется на s3, s2, s4, s1. Если в последней группе меньше четырех символов, то к ней добавляются пробелы. Пользуясь изложенным способом:
А) зашифровать данный текст
Б) расшифровать данный текст

  Uses Crt;

       Const
         k = 4;

       Var
         A { шифр }
         : array [1..k] of integer;

         i, j { переменные цикла }
         : integer;

         param { параметр запуска программы }
         : string;

         B { группа символов }
         : string [k];

         f, { считываемый файл }
         f2 { зашифрованный выходной файл }
         : text;

       Procedure code (
                        path { имя файла }
                        : string;

                        A { шифр - массив из 4-х элементов
                            в процедуре нумерация будет с
                            0 до k - 1 }
                        : array of integer
                      );
       {
         Шифрует
       }
       begin
         Assign (f, path);
         Assign (f2, 'code.txt');
         Rewrite (f2);
         Reset (f);
         i := 0;
         while not Eof (f) do
           begin
             Inc (i);
             Read (f, B [i]);
             if (i = k)
               then
                 begin
                   for i := 0 to k - 1 do
                     Write (f2, B [A [i]]);
                   i := 0;
                 end;
           end;
         if (i < k)
             and
            (i > 0)
           then
             begin
                for i := i + 1 to k do
                  B [i] := ' ';

                for i := 0 to k - 1 do
                  Write (f2, B [A [i]]);
             end;
         Close (f);
         Close (f2);
       end;

       Procedure unCode (
                          path { имя файла }
                          : string;

                          A { шифр - массив из 4-х элементов
                              в процедуре нумерация будет с 0
                              до k - 1 }
                          : array of integer
                        );
       {
         Расшифровывает
       }
       var
         C { расшифрованная группа }
         : string [k];

       begin
         Assign (f, path);
         Assign (f2, 'decode.txt');
         Rewrite (f2);
         Reset (f);
         i := 0;
         while not Eof (f) do
           begin
             Inc (i);
             Read (f, B [i]);
             if (i = k)
               then
                 begin
                   for i := 0 to k - 1 do
                     C [A [i]] := B [i + 1];
                   for i := 1 to k do
                     Write (f2, C [i]);
                   i := 0;
                 end;
           end;
         Close (f);
         Close (f2);
       end;

       Begin
         ClrScr;

         param := ParamStr (1);
         for i := 1 to Length (param) do
           param [i] := UpCase (param [i]);
         if (param = 'DECODE')
             or
            (param = 'CODE')
           then
             begin
               Writeln ('Введите ', k, ' цифр от 1 до ', k, ': ');
               for i := 1 to 4 do
                 Readln (A [i]);
             end;
         if (param = 'DECODE')
           then
             for j := 2 to ParamCount do
               UnCode (ParamStr (j), A)
           else
             if (param = 'CODE')
               then
                 begin
                   for j := 2 to ParamCount do
                     Code (ParamStr (j), A);
                 end
               else
                 begin
                   Writeln ('Example: Sh {param} path1 [path2]...[pathn]');
                   Writeln ('param: code or decode');
                   Writeln ('code - зашифровать файл(файлы)');
                   Writeln ('decode - расшифровать файл(файлы)');
                 end;

         Readln;
       End.

не работает. что не так?

[Arigato]

Вы создали 6 тем, которые называются "Задача". Считаете нормальным, если вообще все будут так темы называть?

[s-andriano]

Рекомендация: удалить все темы кроме одной как повторы.

[Megapol]

если заново создать , но тему поменять так можно?