[mobac]

Здравствуйте! Помогите пожалуйста переписать программу wct editor (delphi) на javascript!

Сам код программы:

Код:

Код:

program converter;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
const
  a: string[8] = 'ABCDEFGO'; {задаём строку для поиска
 в ней символов}
 
Var
   I : byte;
   f1:file of byte;
   f2:textfile;
 
 
{функция для перевода целой части числа из 10-й в любую сс}
function Cel(d: real; c: integer): string;
var
  s: string;
  n2: integer;
begin
  n2 := round(int(d)); {берём целую часть от числа}
  s := '';
  repeat
    s := ((a[n2 mod c + 1]) + s); {повторяем пока число не будет равно нулю берём целую часть при
    делении числа на основание и берём остаток + 1 от деления целой части на 16, записываем
    результат посимвольно в строку s}
    n2 := n2 div c;
  until (n2 = 0);
  if length(s)<3 then
    for i:=length(s)+1 to 3 do
      s:='A'+s;
  Cel := s;
end;
 
begin
  if ParamCount < 2 then
    begin
      writeln('Not enough parameters!');
      exit;
    end
  else
    begin
      if fileexists(paramstr(1)) then
        begin
          assignfile(f1,paramstr(1));
          assignfile(f2,paramstr(2));
          reset(f1);
          rewrite(f2);
          while not eof(f1) do
            begin
              read(f1,i);
              write(f2,cel(i,8));
            end;
          closefile(f1);
          closefile(f2);
        end
      else
        begin
          writeln('File not exist!');
          exit;
        end;
    end;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Надо сделать простую HTML страничку (и javascript) с текстовым полем (многострочным), и кнопку сохранить. Когда нажимашь на кнопку "сохранить" - программа скачивается (или другой файл с другим расширением). Очень надо для сайта, так как не все могут использовать wct editor. Пожалуйста!