C程序转换成delphi？

Question

各位大虾：  请帮我把下面的c程序转换成相应的delphi，我实在是不会啊，谢谢！/*DMX SERIES Sample C program*/#include<stdio.h>main()
{
char *pcs="590";
char *desc="10K OHM 1/4 watt";fputs("DMX Printer Test Program\n",stdout);fputs("x02L\n",stdaux);                         /*STXL-Enter Label Fromatting*/
fputs("H07\n",stdaux);                          /*Enter Heat Setting of 7*/
fputs("D11\n",stdaux);                          /*Set Width and Height Dot Size*/fprintf(stdaux,"191108010000025%s\n",desc);     /*Select smooth Font*/
fprintf(stdaux,"1a6210000000050%sPCS\n",pcs);   /*Select Bar code type 'a' */
fputs("E\n",stdaux);                            /*End Label format mode and print*/}先在这里谢谢各位了！

Answer 1

program test;{$APPTYPE CONSOLE}uses
  windows,
  sysutils;var
  pcs:PChar='590';
  desc:PChar='10K OHM 1/4 watt';
  Fd: TextFile;
begin
  writeln('DMX Printer Test Program');
  AssignFile(Fd, 'COM1');
  writeln(fd,'x02L');
  writeln(fd,'H07');
  writeln(fd,'D11');
  writeln(fd,format('191108010000025%s',[desc]));
  writeln(fd,format('1a6210000000050%sPCS',[pcs]));
  writeln(fd,'E');end.

Answer 2

无法编译，在pcs:Pchar='590'处出错。