simpel hjælp til pascal

Medenstående pascal-kode tager en parameter istedet, således at du kan kalde dit program med :
adam.exe #010000

uses Dos, Drivers;

const COM1=0;
      TIME_OUT=$7000;
      BASE = $3f8;
var i, r, timeout ,flag : Integer;
    str, rec : String;

function bioscom(cmd:Integer; char:Byte; port:Integer):Integer;
var regs : Registers;
begin
    regs.ah := cmd;
    regs.al := char;
    regs.dx := port;
    intr($14,regs);
    bioscom := regs.ax;
end;

begin
    { set RS-232 COM1 to 9600 bps, no parity, 8 data bit, 1 stop bit }
    r := bioscom(0, $e3, COM1);
{    write(\'Input command : \');
    readln(str); }
    str = paramstr(1);
{    while ((str[1] <> \'q\') and (str[1] <> \'Q\')) do
    begin }
    str[length(str)+1] := chr(13);

    i := 1;
    repeat
    begin
        {  Send data  }
        port[BASE] := ord(str[i]);
        i := i+1;
        {  Wiat until transmitter shift register empty  }
        repeat
        until (port[BASE+5] and 64) = 64;
    end
    until ord(str[i-1])    = 13;

    i := 1;
    flag := 1;
    timeout := TIME_OUT;
    repeat
    begin
        {  Check receiver data ready?  }
        if ((port[BASE+5] and 1) = 1) then
        begin
            {  Receive data  }
            rec[i]:=chr(port[BASE]);
            if (ord(rec[i]) = 13) then
            begin
                flag:=0;
                rec[0] := chr(i);
                writeln(\'Received data : \',rec);
            end;
            i := i+1;
        end
        else
        begin
            {  Check timeout  }
            timeout := timeout-1;
            if timeout = 0 then
            begin
                flag := 0;
                writeln(\'Timeout error\');
            end
        end
    end
    until flag = 0;
{    write(\'Input command : \');
    readln(str); }

{    end; }
end.

ok jeg tester lige om den dur :)

jeg får følg. fejl når jeg vil compile
Error 91: \":=\" expected
fejlen er i linje 24 colonne 9 hvis det hjælper min compiler er turbo pascal 5.5

hov jeg har selv fundet og rettet fejlen så nu virker det tak for hjælpen