Векторы с наибольшем модулем перенести в конец файла

uses crt;
const n=5;
type vect=array[1..n]of integer;
f_v=file of vect;

uses crt;
type vec=array of integer;//вектор
     mtr=array of vec; //массив векторов=матрица
//чтение файла
procedure read_file(var f:text;var s:string;var a:mtr;var m,n:integer);
var st:string;
    x,i,j:integer;
begin
writeln('Введите имя файла для чтения');
readln(s);
assign(f,s);
{$I-}
reset(f);
{$I+}
if IOResult<> 0 then
 begin
  writeln('Файл не найден');
  readln;
  halt;
 end;
//подсчитаем количество строк(векторов) в файле
m:=0;
while not seekeof(f)do
 begin
  readln(f,st);
  m:=m+1;
 end;
//подсчитаем количество элементов в векторах, все вектора одного размера
reset(f);
n:=0;
while not eoln(f) do
 begin
  read(f,x);
  n:=n+1;
 end;
//прочитаем все вектора в матрицу
reset(f);
setlength(a,m,n);
for i:=0 to m-1 do
for j:=0 to n-1 do
read(f,a[i,j]);
close(f);
end;
//функция нахождения максимального по модулю в векторе
function max_vec(v:vec;n:integer):integer;
var i,mx:integer;
begin
mx:=abs(v[0]);
for i:=1 to n-1 do
if abs(v[i])>mx then mx:=abs(v[i]);
max_vec:=mx;
end;
//сортировка векторов по максимальному
procedure sort_vec(var a:mtr;m,n:integer);
var i,j:integer;
    x:vec;
begin
for i:=0 to m-2 do
for j:=i+1 to m-1 do
if max_vec(a[i],n)>max_vec(a[j],n)then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;
end;
//запись в новый файл
procedure write_file(a:mtr;m,n:integer;var f:text; var s:string);
var i,j:integer;
begin
writeln('Введите имя файла для записи');
readln(s);
assign(f,s);
rewrite(f);
for i:=0 to m-1 do
 begin
  for j:=0 to n-1 do
  write(f,a[i,j]:5);
  writeln(f);
 end;
close(f);
end;
 
var f:text;
    a:mtr;
    m,n:integer;
    name1,name2:string;
begin
clrscr;
read_file(f,name1,a,m,n);
sort_vec(a,m,n);
write_file(a,m,n,f,name2);
writeln('Файл ',name1,' прочитан, вектора отсортированы и записаны в файл ',name2);
readln;
end.

uses crt;
const n=5;
type vect=array[1..n]of integer;
     f_v=file of vect;
function modul(a:vect):real;
var i:integer;
    m:real;
begin
m:=0;
for i:=1 to n do
m:=m+sqr(a[i]);
modul:=sqrt(m);
end;
var f:f_v;
    a,b:vect;
    k,i,j:integer;
begin
assign(f,'vectoty');
rewrite(f);
write('Сколько векторов записать в файл k=');
readln(k);
randomize;
for i:=1 to k do
 begin
  for j:=1 to n do
  a[j]:=random(20);
  write(f,a);
 end;
writeln('Исходный файл');
reset(f);
while not eof(f) do
 begin
  read(f,a);
  for i:=1 to n do
  write(a[i]:3);
  writeln('   Модуль=',modul(a):0:2);
 end;
reset(f);
for i:=0 to filesize(f)-2 do
for j:=i+1 to filesize(f)-1 do
  begin
    seek(f,i);
    read(f,a);
    seek(f,j);
    read(f,b);
    if modul(a)>modul(b)then
      begin
       seek(f,i);
       write(f,b);
       seek(f,j);
       write(f,a);
      end;
   end;
writeln('Отсортированный файл');
reset(f);
while not eof(f) do
 begin
  read(f,a);
  for i:=1 to n do
  write(a[i]:3);
  writeln('   Модуль=',modul(a):0:2);
 end;
close(f);
readln
end.