С++ ВАЖНО. тяжело

diagon@shadeware:~$ ./a.out
Enter code:
var x:integer; //variable
begin 
{some code}
readln; //pause
end.
variable
 
some code
 
pause
 
diagon@shadeware:~$

[nameless@desktop cpp]$ ./comments sample.pas
File sample.pas contents:
----------------------------------------------
const
  len = 26;
 
  {Это символы для выбора столбца таблицы}
  alpha_hor: string = 'abcdefghijklmnopqrstuvwxyz';
 
  {Здесь будут символы для выбора строки таблицы}
  alpha_ver: string = '';
 
var
  {Это собственно таблица кодирования}
  table: array[1 .. len, 1 .. len] of char;
 
{функция получает строку S и возвращает строку,
  полученную из исходной сдвигом на N позиций}
function shift(s: string; n: integer): string;
  begin
    s := copy(s, length(s) - pred(n), n) + s;
    delete(s, length(s) - pred(n), n); shift := s
  end;
 
var
  i, j, row, col: integer;
  s: string; ch: char;
 
  key: string;
  is_russian: boolean;
  f_in: file of char; f_out, f_key: text;
begin
  { Заполнение таблицы кодировки }
  for i := 1 to len do begin
    {получаем строку символов для текущей строки таблицы}
    s := shift(alpha_hor, pred(i));
    for j := 1 to len do
      table[i, j] := s[j];
    {
      не забываем первый символ заносить в "хранилище"
      для выбора строк по кодируемой букве
    }
    alpha_ver := alpha_ver + s[1]
  end;
 
  { связываем логические файлы программы с физическими файлами на диске }
 
  { файл с фразой для кодирования - открываем для чтения }
  assign(f_in, 'f_00in.txt');
  {$i-} reset(f_in); {$i+}
 
  { файл для сохранения результата - открываем для записи }
  assign(f_out, 'f_00out.txt');
  {$i-} rewrite(f_out); {$i+}
 
  {
    файл, содержащий ключевое слово - открываем для чтения,
    считываем слово в строковую переменную и закрываем файл
  }
  assign(f_key, 'f_00key.txt');
  {$i-} reset(f_key); {$i+}
  readln(f_key, key);
  close(f_key);
 
  { счетчик закодированных символов }
  i := 0;
  {до конца кодируемого файла делаем следующее:}
  while not eof(f_in) do begin
    { читаем очередной символ }
    read(f_in, ch);
    { находим по нему строку таблицы }
    row := pos(ch, alpha_ver);
    {
      эта переменная содержит значение успеха предыдущей операции
      (если True, то символ присутствует в таблице, иначе False)
    }
    is_russian := (row > 0);
    if is_russian then begin
      { Если символ присутствует в таблице, его надо кодировать }
 
      { увеличиваем счетчик закодированных символов }
      inc(i);
 
      {
        находим столбец по значению ключевого символа
        (операция mod используется, чтобы исключить выход
        за пределы ключа, т.к. длина ключа обычно меньше
        длины шифруемой последовательности)
      }
      col := pos(key[i mod (length(key))], alpha_hor);
      { и заменяем простой символ на зашифрованный (из таблицы) }
      ch := table[row, col];
    end;
    {
      если символ надо было шифровать, он уже зашифрован,
      если он не может быть зашифрован, он остался без изменений.
      Пишем его в выходной файл
    }
    write(f_out, ch)
  end;
 
  { И закрываем оба файла: исходный и зашифрованный }
  close(f_out);
  close(f_in)
end.
----------------------------------------------
 
Это символы для выбора столбца таблицы
Здесь будут символы для выбора строки таблицы
Это собственно таблица кодирования
функция получает строку S и возвращает строку,
  полученную из исходной сдвигом на N позиций
 Заполнение таблицы кодировки 
получаем строку символов для текущей строки таблицы
 
      не забываем первый символ заносить в "хранилище"
      для выбора строк по кодируемой букве
    
 связываем логические файлы программы с физическими файлами на диске 
 файл с фразой для кодирования - открываем для чтения 
$i-
$i+
 файл для сохранения результата - открываем для записи 
$i-
$i+
 
    файл, содержащий ключевое слово - открываем для чтения,
    считываем слово в строковую переменную и закрываем файл
  
$i-
$i+
 счетчик закодированных символов 
до конца кодируемого файла делаем следующее:
 читаем очередной символ 
 находим по нему строку таблицы 
 
      эта переменная содержит значение успеха предыдущей операции
      (если True, то символ присутствует в таблице, иначе False)
    
 Если символ присутствует в таблице, его надо кодировать 
 увеличиваем счетчик закодированных символов 
 
        находим столбец по значению ключевого символа
        (операция mod используется, чтобы исключить выход
        за пределы ключа, т.к. длина ключа обычно меньше
        длины шифруемой последовательности)
      
 и заменяем простой символ на зашифрованный (из таблицы) 
 
      если символ надо было шифровать, он уже зашифрован,
      если он не может быть зашифрован, он остался без изменений.
      Пишем его в выходной файл
    
 И закрываем оба файла: исходный и зашифрованный 
[nameless@desktop cpp]$

 commnent 1 in string';
 commnent 2 in string 
 
variable
 
some code
 
pause

oleg@oleg-laptop:~/src/tmp$ ./a.out code.pas
File code.pas contents:
----------------------------------------------
const str1 = '// commnent 1 in string';
      str2 = '{ commnent 2 in string }';
var x:integer; //variable
begin 
{some code}
readln; //pause
end.
 
 
----------------------------------------------
 
 commnent 2 in string 
some code
oleg@oleg-laptop:~/src/tmp$

diagon@shadeware:~$ ./a.out
Enter code:
const str1 = '// commnent 1 in string';
      str2 = '{ commnent 2 in string }';
var x:integer; //variable
begin 
{some code}
readln; //pause
end.
----------------------------------------------------------------
 
variable
some code
pause
diagon@shadeware:~$