(N-IDE) STONE ASCII+

uses Crt;
var
 key, slovo, slovofinal, buf, ii, jj:string;
 i, j, kod:byte;
begin

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

      write('>');
      read(key);
      if key = 'help' then
        begin
          writeln('  code  -- зашифровать');
          writeln('  decode -- засшифровать');
          writeln('  clear -- очистка экрана');
          writeln('  close -- выйти из программы');
        end else
      if key = 'code' then
        begin
          write('  шифрований: ');
          readln(kod);
          slovofinal:='';
          write('  было: ');
          readln(slovo);
        //  write(' => ');
        for i := 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);
        end else
      if key = 'decode' then
        begin
          write('  шифрований: ');
          readln(kod);
          slovofinal:='';
          write('  было: ');
          read(slovo);
        //  write(' => ');
        for i := 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 = 'clear' then
        begin
          clrscr;
          writeln('STONE--ASCII+  [v1.0]');
  writeln('---------------------');
  writeln('введите help для показа всех функций');
        end else
          writeln('  ERROR');
    end;
end.