файлы

uses crt;
const nmax=20;
type mas=array[1..nmax] of integer;//массив
type fail=file of mas;//файлы
procedure ReadFile(var f:fail;n:byte);//вывод файлов на экран
var a:mas;
    i:byte;
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);
writeln;
end;
var f,g:fail;
    a:mas;
    n,m,i,j,imn,imx,k1,k2:byte;
    x:integer;
begin
clrscr;
randomize;
repeat
write('Размер массивов до ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
write('Количество массивов до ',nmax,' m=');
readln(m);
until m in [1..nmax];
assign(f,'filef');
rewrite(f);
for i:=1 to m do
 begin
  for j:=1 to n do
  a[j]:=random(50);
  write(f,a);
 end;
close(f);
clrscr;
writeln('Исходный файл:');
ReadFile(f,n);
reset(f);
assign(g,'fileg');
rewrite(g);
while not eof(f) do
 begin
  read(f,a);
  imx:=1;imn:=1;
  for i:=1 to n do//находим индексы макс и мин
  if a[i]>a[imx] then imx:=i
  else if a[i]<a[imn] then imn:=i;
  if abs(imn-imx)<2 then write(g,a)//если между ними меньше 2х элементов,
                                   // ничего не делаем, в новый файл
  else//иначе
   begin//выясняем который раньше
    if imn<imx then
     begin
      k1:=imn;
      k2:=imx;
     end
    else
     begin
      k1:=imx;
      k2:=imn;
     end;
   for i:=k1+1 to k2-2 do//сортируем между ними по убыванию обменом
   for j:=i+1 to k2-1 do
   if a[i]<a[j] then
    begin
     x:=a[i];
     a[i]:=a[j];
     a[j]:=x;
    end;
   write(g,a);//пишем в файл
  end;
 end;
close(f);
close(g);
writeln('Новый файл:');
ReadFile(g,n);
readln
end.