Создать файл, где компонентой будет массив из N чисел.

uses crt;
const nmax=100;
type mas=array[1..nmax] of integer;
     fail=file of mas;
procedure MaxMin(v:mas;n:byte; var imn,imx:byte);
var i:byte;
begin
imn:=1;imx:=1;
for i:=1 to n do {в каждой компоненте ищем номера макс и мин}
 begin
  if v[i]>v[imx] then imx:=i;
  if v[i]<v[imn] then imn:=i;
 end;
end;
{чтение файла}
procedure ReadFile(var t:fail;k:byte);
var x:mas;
    i:byte;
begin
reset(t);
while not eof(t) do
 begin
  read(t,x);
  for i:=1 to k do
  write(x[i]:2,' ');
  writeln;
 end;
close(t);
writeln;
write('Press Enter...');
readln
end;
var f,g:fail;
    a:mas;
    m,n,i,j,imn,imx,k:byte;
    x,mn:integer;
begin
clrscr;
randomize;
assign(f,'filef');
rewrite(f);
assign(g,'fileg');
rewrite(g);
repeat
write('Сколько компонент записать в файл(до ',nmax,') m=');
readln(m);
until m in [1..nmax];
repeat
write('Размер компонет-массивов(до ',nmax,') n=');
readln(n);
until n in [1..nmax];
for i:=1 to m do
 begin
  for j:=1 to n do
  a[j]:=random(20);
  write(f,a);
 end;
writeln('Содержание исходного файла F:');
ReadFile(f,n);{читаем файл}
{открываем}
reset(f);
for i:=0 to filesize(f)-1 do
 begin
  seek(f,i);
  read(f,a);
  MaxMin(a,n,imn,imx); {в каждой компоненте ищем номера макс и мин}
  if imn<imx then {сортируем между ними}
   begin
    for k:=imn+1 to imx-2 do
    for j:=k+1 to imx-1 do
    if a[k]<a[j] then
     begin
      x:=a[k];
      a[k]:=a[j];
      a[j]:=x;
     end;
   end
  else if imx<imn then
   begin
    for k:=imx+1 to imn-2 do
    for j:=k+1 to imn-1 do
    if a[k]<a[j] then
     begin
      x:=a[k];
      a[k]:=a[j];
      a[j]:=x;
     end;
   end;
  {записываем измененные в новый файл}
  write(g,a);
 end;
close(f);
writeln('Содержание исходного файла G:');
ReadFile(g,n);{читаем файл}
reset(g);
k:=0;mn:=n;{ищем номер компоненты для удаления}
while not eof(g) do
 begin
  read(g,a);
  MaxMin(a,n,imn,imx);
  if abs(imn-imx)<mn then
   begin
    mn:=abs(imn-imx);
    k:=i;
   end;
 end;
close(g);
writeln('Наиболее близко мин и макс в компоненте ',k+1,'=',mn);
reset(g);
seek(g,k);
if k=filesize(g)-1 then truncate(g)
else
 begin
  for j:=k to filesize(g)-2 do{сдвигаем к нему хвост файла}
   begin
    seek(g,j+1);
    read(g,a);
    seek(g,j);
    write(g,a);
   end;
  seek(g,filesize(g)-1);
  truncate(g);{обрезаем файл}
 end;
close(g);
writeln('Файл после удаления компоненты:');
ReadFile(g,n);
end.