program project1;
Uses sysutils, dos;
var
arginput : string;
argoutput : string;
fileinput : file;
fileoutput : text;
dumpbuf : word;
resultado : integer;
begin
writeln(paramcount);
//arginput:=ParamStr(1);
//argoutput:=ParamStr(2);
writeln(paramstr(1));
assign(fileinput,'input.ans');
assign(fileoutput,'output.ans');
reset(fileinput,2);
reset(fileoutput);
rewrite(fileoutput);
write(fileoutput,'<nombrevariable> dw ');
blockread(fileinput, dumpbuf, 1, resultado);
write(fileoutput, '0', format('%x',[dumpbuf]),'h');
while(resultado=1) do
begin
blockread(fileinput, dumpbuf, 1, resultado);
write(fileoutput, ', 0', format('%x',[dumpbuf]),'h');
end;
close(fileinput);
close(fileoutput);
//writeln(resultado);