Дополнить программу так, чтобы в файл данные записывались упорядоченными по убыванию

program f1;
uses crt;
type massch = array[1..100] of integer; mass= array[1..100] of string;
var fn,fn2:string; od:boolean; max,n:integer;
 
{procedure createFile (var fn:string);
var a,i,n:integer; f: file of integer;
 
begin
         writeln ('Введите название файла:');
         readln(fn);
         assign (f,fn);
         rewrite (f);
         write ('введите количество');
         read (n);
    for i:=1 to n do
    begin
         write ('введите целое число');
         read (a);
         write (f,a);
    end;
        close (f);
end;
 
procedure readFile(fn:string; var mas:array[1..10] of integer);
var f: file of integer; i:integer;
begin
writeln('Введите имя:');
readln(fn);
assign(f,fn);
reset(f);
i:=0;
while not(eof(f)) do
begin
i:=i+1;
read (f,mas[i]);
writeln(mas[i])
end;
close(f);
end;
 
function odFiles(fn1,fn2:string; var od):boolean;
var a,b:file of integer; k1,k2,i:integer; t1,t2:integer;
begin
assign (a,fn1);
assign (b,fn2);
reset(a);
reset(b);
k1:=filesize(a);
k2:=filesize(b);
if k1<>k2 then result:=false else
begin
result:=true;
for i:=1 to k1 do begin
read(a,t1);
read(b,t2);
if t1<>t2 then result:=false;
end;
end;
end;
 
procedure maxim(fn:string; var max,n:integer);
var a:file of integer; i,k:integer; t,t1:integer;
begin
assign (a,fn);
reset(a);
k:=filesize(a);
read(a,t1);
max:=t1;
n:=1;
for i:=2 to k do begin
read(a,t);
if max<t then begin max:=t; n:=i;
end;
end;
close(a);
end; }
 
procedure readTextFile (var fn:string);
var f,v:text; l,k,i,sum,sumbal,sumsob,sumkontr,dop,kontr,max,j:integer; mark,st,s1,t:string; fam:mass; sumballov:massch;
begin
assign(f,'sem1_213.txt');
assign(v,'itog.txt');
reset(f);
rewrite(v);
l:=0;
while not(eof(f))do
begin
readln(f,st);
k:=pos(',',st);
l:=l+1;
fam[l]:=copy(st,1,k-1);
delete(st,1,k);
sum:=0;
 
 
for i:=1 to 16 do
begin
k:=pos(',',st);
s1:=copy(st,1,k-1);
sum:=sum+strtoint(s1);
delete (st,1,k);
end;
 
 
sumbal:=0;
for i:=1 to 8 do
begin
k:=pos(',',st);
s1:=copy(st,1,k-1);
sumbal:=sumbal+strtoint(s1);
delete (st,1,k);
end;
 
 
sumsob:=0;
for i:=1 to 6 do
begin
k:=pos(',',st);
s1:=copy(st,1,k-1);
sumsob:=sumsob+strtoint(s1);
delete (st,1,k);
end;
 
 
sumkontr:=0;
for i:=1 to 6 do
begin
k:=pos(',',st);
s1:=copy(st,1,k-1);
sumkontr:=sumkontr+strtoint(s1);
delete (st,1,k);
end;
 
 
k:=pos(',',st);
s1:=copy(st,1,k-1);
delete (st,1,k);
dop:=strtoint(s1);
s1:=copy(st,1,k);
kontr:=strtoint(s1);
sumballov[l]:=sum+sumbal+sumsob+sumkontr+dop+kontr;
 
end;
 
 
for l:=1 to 21 do
    for j:=1  to 21-l do
   if sumballov[j+1]>sumballov[j] then
   begin
   max:=sumballov[j];
   sumballov[j]:=sumballov[j+1];
   sumballov[j+1]:=max;
   t:=fam[j];
   fam[j]:=fam[j+1];
   fam[j+1]:=t;
   end;
for l:=1 to 21 do
    writeln(v,fam[l],'  -  ',sumballov[l]);
   
close (f);
close (v);
end;
 
begin
readTextFile(fn);
{createFile (fn1);
maxim(fn1,max,n);//Максимальный элемент и  его номер
writeln('Максимальный элемент в файле: ', max);
writeln('Номер максимального равен: ', n);
readFile (fn,massch);
if odFiles (fn1,fn2,od)=true then writeln('Один') else writeln('Разные');}
 
end.

program f1;
uses crt;
const
  n=100;
type
  massch = array[1..n] of integer;
  mass= array[1..n] of string;
procedure SortTextFile;
var
  f,v:text;
  l,k,i,j,sum:integer;
  st,s1:string;
  fam:mass;
  sumballov:massch;
begin
  assign(f,'sem1_213.txt');
  assign(v,'itog.txt');
  reset(f);
  rewrite(v);
  {}
  l:=0;
  while not(eof(f))do
    begin
      readln(f,st);
      k:=pos(',',st);
      l:=l+1;
      fam[l]:=copy(st,1,k-1);
      delete(st,1,k);
      sum:=0;
      {}
      i:=1;
      while pos(',',st)>0 do
        begin
          k:=pos(',',st);
          s1:=copy(st,1,k-1);
          sum:=sum+strtoint(s1);
          delete(st,1,k);
        end;
      sumballov[l]:=sum + strtoint(st);
    end;
  {}
  for i:=1 to l-1 do
     for j:=i+1  to l do
       if sumballov[j]>sumballov[i] then
         begin
           {}
           k:=sumballov[j];
           sumballov[j]:=sumballov[i];
           sumballov[i]:=k;
           {}
           st:=fam[j];
           fam[j]:=fam[i];
           fam[i]:=st;
         end;
  {}
  for i:=1 to l do
      writeln(v,fam[i],'  -  ',sumballov[i]);
  close (f);
  close (v);
end;
begin
  SortTextFile;
end.