STONE ASCII+

uses Crt;
var
 key, slovo, slovofinal, buf, ii, jj,bufer:string;
 i,g, j, kod,time:byte;
 textt:textFile;
begin

            assign(textt, 'bufer.txt');
            rewrite(textt);
            writeln(textt,'');
            close(textt);

  clrscr;
  writeln('STONE--ASCII+  [v1.0]');
  writeln('---------------------');
  writeln('введите help для показа всех функций');
  while true do
    begin

      write('>');
      readln(key);

      if key = 'help' then
        begin
          writeln('  <HELP>');
          writeln('  code   -- зашифровать    (kod.txt)');
          writeln('  decode -- засшифровать   (kod.txt)');
          writeln('  clear  -- очистка экрана');
          writeln('  close  -- выйти из программы');
          writeln('  bufer  -- сохранит файл в буфер (bufer.txt)');
          writeln('     -bufer   в строку "было:" ');
          writeln('  ');
          writeln('  print pufer -- выводит содержимое буфера');
          writeln('  print kod   -- выводит последний зашифрованый код');
          writeln('  bufer kod   -- записать в буфер послений код');
          writeln('  ');
          writeln('  clear bufer -- очистка буфера и его файла');
          writeln('  clear kod   -- очистка файла кода');
          writeln('  clear all   -- очистка всего выше перечисленного');
          writeln('  ');
          writeln('  > в шифрования не воддить числа больше 3х для стабильности');
          writeln('  > не вводить русские символы');
        end else
      if key = 'code' then
        begin
          write(' шифрований: ');
          readln(kod);
          slovofinal:='';
          write('  было: ');
          readln(slovo);
          if (slovo = '-bufer') and (bufer <> '') then
            slovo := bufer;

        //  write(' => ');
        for g := 1 to kod do begin
        slovofinal:='';
          for i := 1 to length(slovo) do
            begin
              j:=0;
              while true do
                begin
                  j := j + 1;
                  if copy(slovo, i, 1) = chr(j) then
                    begin
                      slovofinal:=slovofinal + j+'/';
                      break;
                    end;
                end;


             end;
             slovo:=slovofinal;

            end;
            writeln('  стало: ', slovofinal);
            assign(textt, 'kod.txt');
            rewrite(textt);
            writeln(textt,slovofinal);
            close(textt);
        end else
      if key = 'decode' then
        begin
          write('  шифрований: ');
          readln(kod);
          slovofinal:='';
          write('  было: ');
          readln(slovo);
          if (slovo = '-bufer') and (bufer <> '') then
            slovo := bufer;

        //  write(' => ');
        for g := 1 to kod do begin
        slovofinal:='';
          for i := 1 to length(slovo) do
            begin
              if copy(slovo, i, 1 ) <> '/' then
                buf := buf + copy(slovo, i, 1)
               else
              while true do
                begin
                  j:=j+1;
                  if buf = j+'' then begin
                      slovofinal:= slovofinal + chr(j);
                      buf:='';
                      j:=0;
                      break;
                    end;
                end;

                end;
                slovo:=slovofinal;
            end;
          writeln('  стало: ', slovofinal);
        end else
      if key = 'time' then
        begin

        end else
      if key = 'close' then
        begin
          break;
        end else
      if key = 'bufer' then
        begin
          assign(textt, 'bufer.txt');
          reset(textt);
          readln(textt, bufer);
          close(textt);
          writeln(' ',bufer, ' скопировано в буфер');
        end else
      if key = 'print bufer' then
        begin
          writeln(' буфер: ',bufer);
        end else
      if key = 'print kod' then
        begin

          assign(textt, 'kod.txt');
          reset(textt);
          readln(textt,ii);
          writeln(' код: ',ii);
          close(textt);
        end else
      if key = 'clear bufer' then
        begin
          assign(textt, 'bufer.txt');
          rewrite(textt);
          writeln(textt, '');
          close(textt);
          bufer := '';
          writeln(' буфер был очищен');
        end else
      if key = 'clear kod' then
        begin
          assign(textt, 'kod.txt');
          rewrite(textt);
          writeln(textt, '');
          close(textt);
          writeln(' последний код был очищен');
        end else
      if key = 'clear all' then
        begin
          assign(textt, 'bufer.txt');
          rewrite(textt);
          writeln(textt, '');
          close(textt);
          bufer := '';
          assign(textt, 'kod.txt');
          rewrite(textt);
          writeln(textt, '');
          close(textt);
          writeln(' всё было очищено');
        end else
      if key = 'bufer kod' then
        begin
          assign(textt, 'kod.txt');
          reset(textt);
          readln(textt, bufer);
          close(textt);
          writeln(' ',bufer, ' скопировано в буфер');
        end else
      if key = '' then
        begin

        end else

      if key = 'clear' then
        begin
          clrscr;
          writeln('STONE--ASCII+  [v1.0]');
          writeln('---------------------');
          writeln('введите help для показа всех функций');
        end else
          writeln('  ERROR');
    end;
end.