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

uses crt;
const n=20;{размер компоненты}
      mmax=50;{максимальное количество компонент}
type Tmas=array[1..n]of integer;{тип компонент}
var f1,f2:file of Tmas;{типизированные файлы типа компонент}
    a:array[0..mmax] of Tmas;{массив компонент}
    b:Tmas;{перменная типа компонент}
    m:byte;{количество компонент}
    i,j,k,l:byte;{счетчики циклов}
    min,max,x:integer;{минимум, максимум и буфер при сортировке обменом}
    imin,imax,r,rmin,irmin:byte;{номер мин., макс. в массиве, расстояние между ними, минимальное расстояние, номер компоненты с мин. расстоянием}
begin
clrscr;
randomize;
assign(f1,'file1.dat');
rewrite(f1);
assign(f2,'file2.dat');
rewrite(f2);
repeat
write('Vvedite kolichestvo komponent m=');
readln(m);
until (m>0)and(m<=mmax);
for i:=0 to m-1 do
   begin
    for j:=1 to n do
    a[i][j]:=random(50);
    write(f1,a[i]);
   end;
reset(f1);
rmin:=n;irmin:=0;i:=0;
while not eof(f1) do
  begin
   read(f1,a[i]);{читаем очередную компоненту}
   min:=a[i][1];max:=a[i][1];imin:=1;imax:=1;
   for j:=1 to n do
   if a[i][j]<min then
     begin
       min:=a[i][j];{находим минимум}
       imin:=j;{его номер}
     end
   else if a[i][j]>max then
     begin
       max:=a[i][j];{максимум}
       imax:=j;{его номер}
     end;
   if imin<imax then{если мин раньше макс}
      begin
        for k:=imin+1 to imax-2 do{сортируем между ними}
        for l:=k+1 to imax-1 do
        if a[i][k]<a[i][l] then
          begin
           x:=a[i][k];
           a[i][k]:=a[i][l];
           a[i][l]:=x;
         end;
       end
   else  {если макс раньше мин}
       begin
        for k:=imax+1 to imin-2 do{сортируем}
        for l:=k+1 to imin-1 do
        if a[i][k]<a[i][l] then
          begin
           x:=a[i][k];
           a[i][k]:=a[i][l];
           a[i][l]:=x;
         end;
       end;
   r:=abs(imin-imax);{расстояние между мин и макс}
   if r<rmin then{если меньше мин}
     begin
      rmin:=r;{то это мин}
      irmin:=i;{номер компоненты}
     end;
   write(f2,a[i]);{записываем отсортированыые массивы в новый файл}
   inc(i);{увеличиваем счетчик}
 end;
reset(f2);{открываем для чтения}
for i:=irmin+1 to filesize(f2)-1 do {от следующей за нужной компоненты до конца}
  begin
    seek(f2,i);{становимся в позицию}
    read(f2,b);{запоминаем массив}
    seek(f2,i-1);{возвращаемся на шаг назад}
    write(f2,b);{записываем массив на новое место, в итоге произошел сдвиг вверх, нужный массив исчез}
  end;
seek(f2,filesize(f2)-1);{становимся в предпоследнюю строку }
truncate(f2);{обрезаем последнюю}
close(f1);{закроем прочитанные файлы}
close(f2);
writeln('Ishodnyj fail:');
reset(f1);{снова откроем и прочитаем}
while not eof(f1)do
  begin
   read(f1,b);
   for i:=1 to n do
   write(b[i],' ');
   writeln;
  end;
writeln('Izmenennyj fail:');
reset(f2);
while not eof(f2)do
  begin
   read(f2,b);
   for i:=1 to n do
   write(b[i],' ');
   writeln;
  end;
close(f1);
close(f2);
readln
end.

type 
mass=array[1..100] of integer;
typefile=file of mass;

procedure Vivod(var f: Tmas);
var
  a: Tmas;
  c, i: integer;
begin
  Reset(f1);
  c := 1;
  while (not (Eof(f1))) do
  begin
    read(f1,a);
    write(c:3);
    for i:=1 to n do
      write(a[i]:3);
    inc(c);
writeln;
  end;
  Close(f1);
end;