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

[кзои]

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


И далее идёт алгоритм смеси.
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: integer): 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: integer): 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;


var
  s: string;
  was_encoded, was_decoded: string;
  n: integer;

begin
  s := 'Пример составления смеси.';
  was_encoded := encode(s, n);
  writeln('Зашифровано: ', was_encoded)

  was_decoded := decode(was_encoded, n);
  writeln('Восстановлено: ', was_decoded);
end.

Дальше сам справишься? Что-то я, если честно, не совсем разобрался, что там с таблицей дальше делать?