[Pascal] Как нормально реализовать аргументы в паскале?

If (paramstr(1)='--help') or (paramstr(1)='-h') Then
Begin
 (* Вывод справки *)
End;
If (paramstr(1)='--write') or (paramstr(1)='-w') Then
Begin
 WriteValue := StrToInt(ParamStr(2));
 (* Записать какую-нибудь фигню на n значений *)
End;

Const
 MaxNumbersOfParameters = ...;

Var
 MoveAlong : LongBool = TRUE;
 N : Integer;

Begin
 For N := 1 To MaxNumberOfParameters Do
  Begin
   If (ParamStr(N)='--help') or (ParamStr(N)='-h') Then 
    Begin
     (* Вывод справки *)
    End;
   If (ParamStr(N)='--write') or (ParamStr(N)='-w') Then 
    Begin
     WriteValue := StrToInt(ParamStr(N+1));
      (* Записать какую-нибудь фигню на n значений *)
    End;
  End;

(* MoveAlong собственно задумывался как флаг выхода, забыл написать про него. *)

type args=(write,help);
var t:args;
...
begin
...
t:=paramstr(1);
case t of
  write:;
  help:;
end;
...
end.
[[/code]]

Command := ParamStr(1);
C := Command[2];
Case C Of
 'w': (* Это '-w' *)
 'h': (* Это '-h' *)
 '-' : (* Здесь делаем еще одно такое же вложение для --help --write. *)

for	num := 1 to paramcount
		do	begin
			  if	(paramstr(num)='--help') or (paramstr(num)='-h')
			  then	begin
				  {help(); не реализовано еще}
				  halt(0);
				end;
			  if	(paramstr(num)='--calc-count') or (paramstr(num)='-c')
			  then	begin
				  mode:=1;
				  N:=paramstr(num+1);
				  continue
				end;
			  if	(paramstr(num)='--calc-num') or (paramstr(num)='-n')
			  then	begin
				  mode:=2;
				  N:=paramstr(num+1);
				  continue
				end;
			end;

calc_fibonacci.pas(73,10) Error: Incompatible types: got "ShortString" expected "SmallInt"
calc_fibonacci.pas(79,10) Error: Incompatible types: got "ShortString" expected "SmallInt"

StrToInt();[[/code]]

uses sysutils;

//{$define USECASE}
uses
  SysUtils;
type
  TArgsTags = ( atHelp = 1,
                atCommand = 2 );
  TArgsValues = array[TArgsTags] of string;
  TArgsNames = array[1..2] of string;
  TArgs = array [TArgsTags] of TArgsNames;
  var
   CmdValues: TArgsValues;
  const
   CmdNames: TArgs = (('--help', '-h'),('--command','-c'));
   
  function GetTagByName(name: string): TArgsTags;
  var tag: TArgsTags;
  begin
   tag := atHelp;
   for tag := Low(TArgsTags) to High(TargsTags) do
    if (name = CmdNames[tag][1]) or (name = CmdNames[tag][2]) then
    begin
      Result := tag;
      break;
    end;
   Result := tag;
  end;

  procedure ShowHelp;
  begin
    WriteLn('RTFM!');
  end;

  function ArgsCheck: boolean;
  var i: integer;
      tag: TArgsTags;
      procedure FillParam(tag: TArgsTags; value: string);
      begin
          CmdValues[tag] := value;
          WriteLn(Format('arg %s is %s', [CmdNames[tag][1],CmdValues[tag]]));
      end;
  begin
    Result := False;
    WriteLn(Format('Arguments total: %d', [ParamCount]));
    for i:= 1 to ParamCount do
    begin
{$ifdef USECASE}
      tag := GetTagByName(ParamStr(i));
      case (tag) of
       atHelp: begin
                Result := True;
                ShowHelp();
                exit;
               end;
       atCommand:
        begin
          if (i+1 <= ParamCount) then
          begin
            FillParam(tag, ParamStr(i+1));
            Result := True;
          end
         else
         begin
            Result := False;
            ShowHelp();
            exit;
         end;
        end;
       end;  
{$else} //USE CYCLE
    for tag := Low(TArgsTags) to High(TargsTags) do
      if (ParamStr(i) = CmdNames[tag][1]) or (ParamStr(i) = CmdNames[tag][2]) then
      begin
        if (i+1 <= ParamCount) then
        begin
          FillParam(tag, ParamStr(i+1));
          Result := True;
        end
        else
        begin
          Result := False;
          ShowHelp();
          exit;
        end;
      end;
{$endif}
    end;
  end;

begin
  if not ArgsCheck then exit;
  WriteLn('You are parsed');
  ReadLn;
end.