Работа с аргументами командной строки

program Project1;
 
var
  i : Integer;
begin
  (*Функция ParamCount возвращает количество дополнительных параметров,
  переданных программе через командную строку.*)
  if ParamCount = 0 then begin
    Writeln('Параметр по умолчанию, содержащий путь к исполняемому файлу программы:');
    Writeln(ParamStr(0));
    Writeln('Дополнительные параметры в программу не переданы.');
  end else begin
    Writeln('Параметр по умолчанию, содержащий путь к исполняемому файлу программы:');
    Writeln(ParamStr(0));
    Writeln('Дополнительные параметры, переданные в программу:');
    for i := 1 to ParamCount do begin
      Writeln(ParamStr(i));
    end;
  end;
 
  Readln;
end.

   if (paramcount <3) then
      begin
         writeln('  Не хватает аргументов!!!');
         writeln('  Н а п р и м е р, используйте ./matr1 5 3 r/k');
         exit;
      end;
 
        rezhim:=paramstr(3);
Val(paramstr(1),kolm,error);
if error =1 then
kolm:=0;
 
Val (paramstr(2),koln,error);
if error =1 then
koln:=0;

program Project1;
 
var
  i : Integer;
  rezhim : String;
  Kolm, Koln, Error : Integer;
begin
  if (paramcount <3) then
  begin
    writeln('  Не хватает аргументов!!!');
    writeln('  Н а п р и м е р, используйте ./matr1 5 3 r/k');
    exit;
  end;
 
  rezhim:=paramstr(3);
  Writeln('rezhim = ', rezhim);
 
  Val(paramstr(1),kolm,error);
  if error =1 then
    kolm:=0;
  Writeln('Kolm = ', Kolm);
 
  Val (paramstr(2),koln,error);
  if error =1 then
    koln:=0;
  Writeln('Koln = ', Koln);
 
  Readln;
end.

  if (paramcount <3) then
  begin
    writeln('  Не хватает аргументов!!!');
    writeln('  Н а п р и м е р, используйте ./matr1 5 3 r/k');
    //ВНИМАНИЕ! Происходит выход, если передано менее 3 доп. параметров.
    exit;
  end;