Из исходного файла вывести нужные строки из 3-его параметра в текстовый файл 2

uses crt;
 
var f:text;
    f1:text;
    name:string[80];
    min_name:string[80];
    i,i1, code_1, code_2,t: integer;
    s: string;
 
 
Begin
clrscr;
 
If ParamCount = 0 then
  WriteLn('Not parametrs');
if (ParamCount>3) or (ParamCount<1) then
  begin
    writeln('Enter new parametrs');
    readln;
  end
else
 
begin
 
for i:=0 to paramcount do
  writeln(i,' parametr: ',paramstr(i));
 
begin
  val(paramstr(3),code_1,code_2);
  if code_2<>0 then
    begin
      writeln('parametr 3 ne chislo');
      halt;
    end
    else
  assign(f, ParamStr(1));
  {$i-}
  reset(f);
  {$i+}
  if IOResult<>0 then
    begin
      writeln('File not open');
      readln;
      halt;
    end
  else
 
  i:=0;
  writeln;
 
  Assign(f1, ParamStr(2));
  rewrite(f1);
  {$i-}
  reset(f1);
  {$i+}
  if IOResult<>0 then
    begin
      writeln('File not open');
      readln;
      halt;
    end
  else
 
  s:=paramstr(3);
 
  while not eof(f) do
  begin
    readln(f, name);
    writeln(name);
    i:=i+1;
      if (i=s) then
        append(f1);
        write(f1,name);
  end;
 
  while not eof(f1) do
  begin
    readln(f1,name);
    writeln(name);
  end;
 
  close(f1);
  close(f);
 
  end;
  readln;
  end;
end.

uses
    Crt;
type
    TArray = Array Of Word;
function CheckForInclude(const ar: TArray; const x: Word): Boolean;
var
    Result: Boolean;
    i: Word;
begin
    Result := False;
    if (Length(ar) > 0)
    then
    begin
        i := 0;
        while ((Not Result) And (i < Length(ar))) do
        begin
            Result := ar[i] = x;
            Inc(i);
        end;
    end;
    CheckForInclude := Result;
end;
procedure ReadLineNumbers(var f: Text; var ar: TArray);
var
    fi: Word;
begin
    ReSet(f); SetLength(ar, 0);
    while (Not EoF(f)) do
    begin
        ReadLn(f, fi);
        if (Not CheckForInclude(ar, fi))
        then
        begin
            SetLength(ar, Length(ar) + 1);
            ar[Length(ar) - 1] := fi;
        end;
    end;
    Close(f);
end;
procedure ReadLinesFromFtoG(var f, g: Text; const ar: TArray);
var
    s: String;
    i: Word;
begin
    i := 0;
    ReSet(f); ReWrite(g);
    while (Not EoF(f)) do
    begin
        ReadLn(f, s);
        Inc(i);
        if (CheckForInclude(ar, i))
        then
            WriteLn(g, s);
    end;
    Close(f); Close(g);
end;
procedure Main();
var
    ar: TArray;
    f, g, h: Text;
begin
    Assign(f, paramstr(1));
    Assign(g, paramstr(2));
    Assign(h, paramstr(3));
    ReadLineNumbers(h, ar);
    ReadLinesFromFtoG(f, g, ar);
end;
begin
    ClrScr;
    if (ParamCount <> 3)
    then
        WriteLn('ERROR! Not enough or too much parameters!')
    else
        Main();
end.