Как создать файл bat из программы на Pascal и возможно ли это?

program ;
uses crt;
label m;
var
  a: array[1..32] of string;
  i, j: integer;
  t,s: string;
begin    
a[1] := '7+';      a[2] := '+777';      a[3] := '7+++';
a[4] := '++7';     a[5] := '+77';       a[6] := '7';
a[7] := '777+';    a[8] := '++77';      a[9] := '77';
a[10] := '7+++';   a[11] := '+7+';      a[12] := '7+77'; 
a[13] := '++';     a[14] := '+7';       a[15] := '+++';
a[16] := '7++7';   a[17] := '7+7';      a[18] := '777';
a[19] := '+';      a[20] := '77+';      a[21] := '77+7';
a[22] := '7777';   a[23] := '+7+7';     a[24] := '+++7';
a[25] := '++++';   a[26] := '++7+';     a[27] := '+77+';
a[28] := '+7++';   a[29] := '+77+';     a[30] := '77+77';
a[31] := '77++';   a[32] := '7+7+';    
m: ClrScr;           
writeln('Введите текст на азбуке Морзе');      
readln(t);      
repeat
        j:=pos('0',t);
        if j>0 then s:=copy(t,1,j-1) 
          else
            begin
            s:=t;
            t:='';
            end;
        delete(t,1,j);
        for i:=1 to 32 do
          if a[i]=s then write(chr(i+223));
        until t='';      
readln;       
goto m;
end.

begin
  Assign(output,'test.bat'); Rewrite(output);
  WriteLn('@echo Hello from .bat');
  Close(output);
end.