Файл: Если количество строк больше заданного n, то создать новый файл и записать в него строки из данного файла.

var
   f1,f2: text;
   s,p:string;
   I,g: integer;
   n:real;
begin
writeln('Введите путь к файлу');
readln(p);
     assign(f1,p);
      reset(f1);
      i:=0;
 while not eof(f1) do 
    begin 
        readln(f1,s); 
     i := i + 1; 
    end; 
    g:=i;
    close(f1); 
    
assign (f2, 'G:\Desktop\мое\92.txt');
 reset(f1);
    rewrite(f2);
    i := 1;
    while not EOF(f1) do begin
        read(f1, n);
          if g>n then 
            write(f2, n);
        i := i + 1;
    end;
    close(f1);
    close(f2);
  
    
end.

program NN_Application;
 
const O = 100;//Размер массива со строками
 
var 
    strings: array[1..O] of string;
    FileInput, FileOutput: string;
    n, count: longint;
 
procedure RecordInNewFile(ExportFileName: string);
var i,k: integer;
begin
  i:= Count; k:= 1;
  Assign(output, ExportFileName);
  ReWrite(output);
    while (i <> 0) do
      begin
        writeln(strings[k]);
        dec(i);
        inc(k);
      end;
  close(output);
end;
 
procedure GetStrings(ImportFileName: string);
var Str: string;
    i: integer;
begin
  i:= 1;
  Assign(input, ImportFileName);
  Reset(input);
    while not eof(input) do
      begin
        readln(Str);
        strings[i]:= Str;
        inc(i);
      end;
  count:= i;
end;
 
begin
  write('n = ');
  readln(n);
  write('Путь к файлу со строками? ');
  readln(FileInput);
  write('Куда переписывать строки после анализа? ');
  readln(FileOutput);
  GetStrings(FileInput);
  if count - 1 > n then 
    begin
      writeln('Число строк в файле '+FileInput+ ' больше заданного n');
      RecordInNewFile(FileOutput);
    end
      else 
        begin
          writeln('Число строк в файле '+FileInput+ ' меньше или равно заданному n');
          Assign(output, FileOutput);
          ReWrite(output);
          write(strings[1]);
          writeln();
          write(strings[2]);
          writeln();
          write(strings[count - 1]);
          writeln();
          write(strings[count - 2]);
          close(output);
        end;
end.

var  f1,f2: text;
     s:string;
     n,g,i,j: integer;
begin
write('n=');
readln(n);
assign(f1,'input.txt');//файл в папке с программой
reset(f1);
g:=0;
while not eof(f1) do
 begin
  readln(f1,s);
  inc(g);
 end;
assign (f2,'output.txt');
rewrite(f2);
if g>n then
 begin
  reset(f1);
  while not EOF(f1) do
   begin
    readln(f1,s);
    writeln(f2,s);
   end;
  close(f1);
  close(f2);
 end
else
 begin
  n:=1;
  for i:=1 to (g+1) div 4 do
   begin
     reset(f1);
     j:=0;
     while not eof(f1) do
      begin
       readln(f1,s);
       inc(j);
       if j in[n,n+1,g-n+1,g-n] then writeln(f2,s);
      end;
     inc(n,2);
   end;
  close(f1);
  close(f2);
 end;
end.