Типизированный файл иассивов

program contr2;
        uses crt;
        const n=10;
        type mas=array[1..n] of integer;
             fmas=file of mas;
        var f1,f2 :fmas;
            a :mas;
            i,j,k,h :integer;
 
procedure FILE_SOZD;
          begin
               rewrite(f1);
               For i:=1 to random(3)+3 do begin
                   For j:=1 to n do
                       a[j]:=random(21)-5;
                   write(f1,a);           end;
               close(f1);
          end;
 
procedure FILE_VIV(var f:fmas);
          begin
               reset(f);
               while not eof(f) do begin
                     read(f,a);
                     For i:=1 to n do
                         write(a[i]:3);
                     writeLn;       end;
               close(f);
          end;
 
procedure FILE_SORT;
          begin
          min:=maxint;
          max:=-maxint;
          seek(fl,0);
          reset(f1); rewrite(f2);
          while not eof(f1) do begin
              read(f1,a);
              min:=maxint;
              max:=-maxint;
              for i:=1 to n do begin
               if a[i]>max then begin max:=a[i];{присвоение индекса}
              nmax:=i;{Присвоение номера}
              end;
              if a[i]<min then begin min:=a[i];{присвоение индекса}
              nmin:=i;{Присвоение номера}
              end;
              end;
              e:=nmax-nmin;{разность,находим расстояние между минимальным и максимальным}
              if nmax>nmin then begin k1:=nmin;
              k2:=nmax;
              end
              else k1:=nmax;
              k2:=nmin;
              if k1>k2 then {Что дальше?)}
             
               i:=1;
              repeat;
              if a[i]>a[i+1] then
              begin c:=a[i];
              a[i]:=a[i+1];
              a[i+1]:=c;
              if i>1 then dec(i);
              end
              else inc(i);
              until i>=n; {Сортировка}
 
end;
end;
end.

uses crt;
const n=10;{размер массивов}
type mas=array[1..n] of integer;
var f,g:file of mas;
    m,i,j,k,min,imin,jmn,jmx:byte;
    x:integer;
    a:mas;
begin
randomize;
assign(f,'file1');
rewrite(f);
assign(g,'file2');
rewrite(g);
repeat
write('Количество компонент от 2 до ',n,' m=');
readln(m);
until m in [2..n];
for i:=1 to m do
 begin
  for j:=1 to n do
  a[j]:=-5+random(21);
  write(f,a);
 end;
writeln('Содержание первого файла:');
reset(f);
min:=n;{минимальное расстояние между мин и макс в массивах}
for i:=0 to filesize(f)-1 do
 begin
  seek(f,i);
  read(f,a);
  jmn:=1;
  jmx:=1;
  for j:=1 to n do
   begin
    write(a[j]:4);
    if a[j]<a[jmn] then jmn:=j; {найдем номера мин и макс в массивах}
    if a[j]>a[jmx] then jmx:=j;
   end;
  writeln('  min a[',jmn,']=',a[jmn]:3,' max a[',jmx,']=',a[jmx]:3);
  if jmx<jmn then{поменяем индексы если макс раньше мин}
   begin
    k:=jmx;
    jmx:=jmn;
    jmn:=k
   end;
  for j:=jmn+1 to jmx-2 do{отсортируем по убыванию между мин и макс}
  for k:=j+1 to jmx-1 do
  if a[j]<a[k] then
   begin
    x:=a[j];
    a[j]:=a[k];
    a[k]:=x;
   end;
  write(g,a);
  if abs(jmn-jmx)<min then
   begin
    min:=abs(jmn-jmx);
    imin:=i{индекс массива для удаления}
   end;
 end;
close(f);
writeln('Содержание второго файла до удаления');
reset(g);
while not eof(g) do
 begin
  read(g,a);
  for i:=1 to n do
  write(a[i]:4);
  writeln;
 end;
writeln('Минимальное расстояние между макс и мин =',min,' в компоненте номер ',imin+1);
{номер на 1 больше чем индекс}
reset(g);
if imin=filesize(g)-1 then
 begin
  seek(g,filesize(g)-1);
  truncate(g);
 end
else
 begin
  for i:=imin to filesize(g)-2 do
   begin
    seek(g,i+1);
    read(g,a);
    seek(g,i);
    write(g,a);
   end;
  seek(g,filesize(g)-1);
  truncate(g);
 end;
writeln('Содержание второго файла после удаления');
reset(g);
while not eof(g) do
 begin
  read(g,a);
  for i:=1 to n do
  write(a[i]:4);
  writeln;
 end;
close(g);
end.