Записать в новый файл в порядке возрастания целые числа

uses crt;
var f,g:file of integer;
    n,i,j,k,iv,a,b,mn,mx,x:integer;
begin
randomize;
assign(f,'fileF');
rewrite(f);
assign(g,'fileG');
rewrite(g);
write('Сколько чисел ввести n=');
read(n);
for i:=1 to n do
 begin
  a:=random(100);
  write(f,a);
 end;
writeln('Содержание исходного файла:');
reset(f);
read(f,mn);
write(mn,' ');
mx:=mn;
for i:=1 to filesize(f)-1 do
 begin
  read(f,a);
  write(a,' ');
  if a<mn then mn:=a;
  if a>mx then mx:=a;
 end;
writeln;
writeln;
writeln('Минимум=',mn,' максимум=',mx);
writeln;
seek(f,0);
for i:=0 to filesize(f)-1 do
 begin
  seek(f,i);
  read(f,a);
  if(a>mn)and(a<mx) then{если число из интервала}
   begin
    k:=0;
    iv:=-1;{пока нет}
    while(k<filesize(g))and(iv=-1) do
     begin
      seek(g,k);
      read(g,x);
      if x>a then iv:=k{нашли первое число больше данного}
      else k:=k+1;
     end;
    if iv=-1 then{если не нашли больше}
     begin
      seek(g,filesize(g));{записываем в конец}
      write(g,a);
     end
    else{если нашли}
     begin
      for j:=filesize(g) downto iv+1 do{сдвигаем элементы вниз на 1}
       begin
        seek(g,j-1);
        read(g,b);
        seek(g,j);
        write(g,b);
       end;
      seek(g,iv);
      write(g,a);{вставляем число}
     end;
   end;
 end;
close(f);
reset(g);
writeln('Содержание полученного файла:');
if filesize(g)=0 then write('Нет чисел, отличных от минимального и максимального')
else
 begin
  for i:=0 to filesize(g)-1 do
   begin
    read(g,a);
    write(a,' ');
   end;
 end;
close(g);
end.

uses crt;
var f,g:file of integer;
    a,b,x,mn,mx:integer;
    n,i,j,i1,iv:integer;
    t:boolean;
begin
clrscr;
randomize;
assign(f,'file1');
rewrite(f);
assign(g,'file2');
rewrite(g);
write('Сколько чисел ввести n=');
readln(n);
for i:=1 to n do
 begin
  a:=random(100);
  write(f,a);
 end;
writeln('Содержание исходного файла:');
reset(f);
read(f,mn);{первое число пока мин и макс}
write(mn:4);
mx:=mn;
while not eof(f) do
 begin
  read(f,a);
  write(a:4);
  if a<mn then mn:=a;
  if a>mx then mx:=a;
 end;
writeln;
writeln('Минимальный=',mn);
writeln('Максимальный=',mx);
writeln;
{вставка элементов в новый файл по возрастанию}
{найдем первый элемент для вставки}
seek(f,0);
i1:=-1;
i:=0;
while(i<filesize(f))and(i1=-1)do
 begin
  seek(f,i);
  read(f,a);
  if(a>mn)and(a<mx) then i1:=i
  else i:=i+1;
 end;
if i1=-1 then
 begin
  write('В файле нет чисел больше минимального и меньше максимального');
  readln;
  close(f);
  exit
 end;
write(g,a);
reset(g);
{вставляем остальные}
seek(f,0);
for i:=i1+1 to filesize(f)-1 do
 begin
  seek(f,i);
  read(f,x);
  if(x>mn)and(x<mx) then
   begin
    t:=false;{пока нет места для вставки}
    seek(g,filesize(g)-1);{проверим не больше ли последнего}
    read(g,a);
    if a<=x then
     begin
      seek(g,filesize(g));
      write(g,x);
      t:=true;{вставили в конец}
     end
    else {если нет сравним с первым}
     begin
      seek(g,0);
      read(g,a);
      if a>=x then
       begin
        for j:=filesize(g) downto 1 do
         begin
          seek(g,j-1);
          read(g,b);
          seek(g,j);
          write(g,b);
         end;
        seek(g,0);
        write(g,x);
        t:=true;{вставили в начало}
       end
     end;
    if not t then {если нет будем искать куда вставить}
     begin
      j:=0;
      iv:=-1;
      while(j<filesize(g))and(iv=-1) do
       begin
        seek(g,j);
        read(g,a);
        if a>=x then iv:=j
        else j:=j+1;
       end;
      for j:=filesize(g) downto iv+1 do
       begin
        seek(g,j-1);
        read(g,b);
        seek(g,j);
        write(g,b);
       end;
      seek(g,iv);
      write(g,x);
     end;
   end;
 end;
close(f);
writeln('Содержание нового файла:');
seek(g,0);
for i:=0 to filesize(g)-1 do
 begin
  read(g,a);
  write(a:4);
 end;
close(g);
readln
end.

 var
 arr: array [1..100] of integer;
 t,p:text;
 i, j, g, n, max, min: integer;
 
 begin
 assign(t,'C:\in.txt');
 assign(p,'C:\out.txt');
 rewrite(t);
 rewrite(p);
 write('Ñêîëüêî ÷èñåë çàïèñàòü â ôàéë: '); readln(n);
 randomize;
 
 
 for i:=1 to n do
 begin
   arr[i]:=random(50);
   write(t,arr[i],' ');
 end;
 
 max:=arr[1];
 min:=arr[1];
 for i:=1 to n do
 begin
    if arr[i]>max then max:=arr[i];
    if arr[i]<min then min:=arr[i];
 end;
 
 for i:=1 to n do
 begin
     for j:=1 to n-1 do
     if arr[j]>arr[j+1] then
        begin
          g:=arr[j];
          arr[j]:=arr[j+1];
          arr[j+1]:=g;
        end;
 end;
     
 for i:=1 to n do
 begin
    if (arr[i]<max) and (arr[i]>min) then
       write(p,arr[i],' ');
 end;
 
 close(t);
 close(p);
 end.

for i:=mn+1 to mx-1 do
write(g,i);

uses crt;
var n,i,max,min: integer;
    f,g: file of integer;
begin                                       //ассоциирую переменную с файлом
assign(f,'C:\in.dta');
assign(g,'C:\out.dta');
rewrite(f);                                 //открываю для записи
for i:=1 to 20+random(20) do                //в цикле с параметрами заполняю случайными числами
    begin
    n:=random(199)-99;
    write(f,n);
    end;
writeln('Компоненты исходного файла');
reset(f);                                       //открывааю для чтения
read(f,n);                                      //считываю первый компонент, присваиваю его значение
max:=n; min:=n;                                  //и максимуму и минимуму
reset(f);
while not (eof(f)) do                          //в цикле с предусловием пока не закончится файл
      begin
      read(f,n);                              //считываю переменные, сравниваю с мин и макс если больше, то меняю на новое значение макс, если меньше, то наоборот
      write(n:5);
      if n>max then max:=n;
      if n< min then min:=n;
      end;
writeln;
writeln('Максимальный элемент ',max);
writeln('Mинимальный элемент  ',min);
rewrite(g);
for i:=min+1 to max-1 do                       //в цикле с параметром от минимального до максимального не включительно для каждого значения счетчика i
    begin
    reset(f);                                  //открываю файл для чтения
    while not (eof(f)) do
          begin                               //считываю переменную
          read(f,n);                          //если совпадает со счетчиком,
          if n=i then write(g,i);            //заношу в новый файл
          end;
    end;
writeln;
writeln('Компоненты итогового файла');
reset(g);                                   //открываю для чтения
while not (eof(g)) do                       //в цикле с предусловием
      begin
      read(g,n);                            //считываю и вывожу компоненты нового файла
      write(n:5);
      end;
close(f);                                 //закрываю
close(g);
end.