Смесь из литер., алгоритм шифрования (перестановка) Опции

[кзои]

Приветствую всех. Я вообще новичок в програмировании и вот в ВУЗЕ мне предложили одну задачу, я парюсь и не могу зделать самое главное. В двух словах дана таблица (кодировочная). Приводить её не буду, потому как получится, что я озадачиваю вас писать эту программу. Скажу только, что символы кодируются двумя цифрами


И далее идёт алгоритм смеси.
1)смесь разбивается на группы по N=<число слов в тексте>
2)выделяются 1-е, 2-е и т.д. символы из каждой группы
3)подряд идущие пробелы и знаки препинания объединяются в один символ


Выглядит всё это примерно так.

Исходный текст
ПРИМЕР СОСТАВЛЕНИЯ СМЕСИ.

Результат шифрования
ПССРОМИСЕМТСЕАИРВ._Л._Е._Н._И._Я._ _.

Результат дешифровки (N=3)
1) ПСС|РОМ|ИСЕ|МТС|ЕАИ|РВ.|_Л.|_Е.|_Н.|_И.|_Я.|_ _.
2) ПРИМЕР_ _ _ _ _
СОСТАВЛЕНИЯ_
СМЕСИ…….
3) ПРИМЕР_СОСТАВЛЕНИЯ_СМЕСИ.

=================================================

А теперь о самой проблемме, я не могу реализовать сам этот алгоритм (слишком мало опыта), в принципе вся эта таблица уже находится в программе. Подскажите пожалуйста, как такое реализовать при кодировании. Заранее огромное спасибо, извините за лемерство.

[volvo]

Проверяй:

const
  max_word = 255;
  delimiter = [#32, ',', '.', '!', ':'];
type
  wrd_info = record
    start, len: byte;
  end;

function encode(s: string; var count: byte): string;
var
  words: array[1 .. max_word] of wrd_info;
  max, i, j, curr_len: byte;

  encoded: string;
begin

  count := 0; i := 1;
  while i <= length(s) do begin

    while (s[i] in delimiter) and (i <= length(s)) do inc(i);

    curr_len := 0;
    while not (s[i] in delimiter) and (i <= length(s)) do begin
      inc(i); inc(curr_len);
    end;

    if curr_len > 0 then begin
      inc(count);
      with words[count] do begin
        start := i - curr_len;
        len := curr_len
      end;
    end;

  end;

  max := 0;
  for i := 1 to count do
    if max < words[i].len then max := words[i].len;

  encoded := '';
  for j := 1 to max + 1 do
    for i := 1 to count do begin
      if j <= words[i].len then encoded := encoded + s[words[i].start + j - 1]
      else encoded := encoded + s[words[i].start + words[i].len];
    end;

  encode := encoded;
end;

function decode(s: string; n: byte): string;
var
  decoded: string;
  i, j: integer;
begin
  decoded := '';
  for i := 1 to n do begin

    j := i;
    while j <= length(s) do begin
      decoded := decoded + s[j];
      inc(j, n)
    end;

  end;

  i := 2;
  while i <= length(decoded) do begin
    if decoded[pred(i)] = decoded[i] then
      delete(decoded, i, 1)
    else inc(i)
  end;

  decode := decoded;
end;

const
  table: array['1' .. '6', '1' .. '8'] of char =
    (
      ('а', 'б', 'в', 'г', 'д', 'е', 'ё', 'ж'),
      ('з', 'и', 'й', 'к', 'л', 'м', 'н', 'о'),
      ('п', 'р', 'с', 'т', 'у', 'ф', 'х', 'ц'),
      ('ч', 'ш', 'щ', 'ъ', 'ы', 'ь', 'э', 'ю'),
      ('я', '1', '2', '3', '4', '5', '6', '7'),
      ('8', '9', '0', '.', ',', '!', '?', '-')
    );

function get_key(ch: char): string;
var i, j: char;
begin
  get_key := ' ';
  for i := '1' to '6' do
    for j := '1' to '8' do
      if table[i, j] = ch then begin
        get_key := i + j; exit
      end;
end;

function s_deshif(s: string): string;
var
  rs: string;
  i: integer;
begin
  rs := '';

  i := 1;
  while i <= length(s) do begin
    if s[i] = ' ' then begin
      rs := rs + ' '; inc(i)
    end
    else begin
      rs := rs + table[s[i], s[i+1]]; inc(i, 2)
    end;
  end;
  s_deshif := rs;
end;

procedure encode_file(s_in, s_out: string);

  function s_shif(s: string; n: byte): string;
  var
    rs: string;
    i: integer;
  begin
    rs := '';
    for i := 1 to length(s) do
      rs := rs + get_key(s[i]);
    rs := chr(n) + rs;
    s_shif := rs
  end;

var
  f_in, f_out: text;
  s, was_encoded: string;
  n: byte;
begin
  assign(f_in, s_in); reset(f_in);
  assign(f_out, s_out); rewrite(f_out);
  while not seekeof(f_in) do begin
    readln(f_in, s);
    was_encoded := encode(s, n);
    writeln(f_out, s_shif(was_encoded, n))
  end;
  close(f_out);
  close(f_in);
end;

procedure decode_file(s_in, s_out: string);
var
  f_in, f_out: text;
  s: string;
  n: byte;
begin
  assign(f_in, s_in); reset(f_in);
  assign(f_out, s_out); rewrite(f_out);
  while not seekeof(f_in) do begin
    readln(f_in, s);
    n := byte(s[1]); delete(s, 1, 1);
    s := s_deshif(s);
    writeln(f_out, decode(s, n));
  end;
  close(f_in);
  close(f_out);
end;


begin
  encode_file('before.txt', 'after.txt');
  decode_file('after.txt', 'restor.txt');
end.

исходный текст - в "before.txt", зашифрованный - в "after.txt", восстановленный - в "restor.txt" ...