Создание файлов через командную строку

program lab15;
 
type
  T = file of longint;
 
var
  temp: T;
  output, input: text;
  s: string;
  k, b, j,n,m,i,sp, code: integer;
  z, x, a: longint;
  f1,yes: boolean;
 
function Same(): boolean;
var i,j: Integer;
begin
for i:=0 to (filesize(temp)-1) do 
 for j:=i+1 to (filesize(temp)-1) do begin
 seek(temp,i);
 read(temp,k);
 seek(temp,j);
 read(temp,m);
 if k=m then
 yes:=true;
 if(yes=true)then
 break;
end;
Same:=yes;
end;
 
begin  
  assign(input, ParamStr(1));
  rewrite(input);
  assign(temp, ParamStr(2));
  rewrite(temp);
  s := paramStr(4);
  val(s, b, code);
  b := b div 4;
  randomize;
  for i := 1 to b do
  begin
    a := random(1000000000) + 1;
    write(temp, a);
    writeln(input, a);
  end;
  close(input);
  reset(temp);
  
  if Same() = false then begin
  for i:=0 to filesize(temp)-2 do  
    for j:=i+1 to filesize(temp)-1 do   
      begin
        seek(temp,i);  
        read(temp,k); 
        seek(temp,j);  
        read(temp,m);  
        if k mod 10 > m mod 10 then    
          begin
            sp:=k;  
            k:=m;
            m:=sp;
            seek(temp,i); 
            write(temp,k);
            seek(temp,j);
            write(temp,sp);
          end;
      end;
      end;
  
  close(temp);
  Assign(output, paramStr(3));
  rewrite(output);
  reset(temp);
  while not eof(temp) do
  begin
    read(temp, z);
    writeln(output, z);
    
  end;
  close(temp);
  close(output);
  
end.