Задача про матрицу и сортировку массива

program Project1;
 
 {$APPTYPE CONSOLE}
 var mas : Array [1..100,1..100] of integer;
      ar : array [1..100] of real;
     m,n : integer;
    i,j,k :integer;
     f1,f2:text;
     fn : string;
     sr : real;
 begin write('type file name: ');        {имя массива}
  readln(fn);
  Assign (f1,fn);
  reset(f1);
  write('Type name of file result: ');    {имя результата}
  readln(fn);
  Assign(f2,fn);
  Rewrite(f2);
  readln(f1, n);
  readln (f1, m);
   for i :=1 to n do begin
    for j := 1 to m do  begin
     read (f1, mas[i,j]);
     Write(Mas[i,j]:3);
    write(f2, Mas[i,j]:3);
    end;
    readln(f1);
    writeln;
    writeln(f2);
    end;
   close(f1);
  for i :=1 to n do                   {среднее значение строки}
   begin
   sr:=0;
    for j:=1 to m do
     sr:= sr + mas[i,j];
     sr:= sr/m;
     write (f2, sr:4:2,' ');         {вывод на экран и в файл}
     write (sr:4:2,' ');
    end;
   close(f2);
   readln;
  end.

uses crt;
 
const n=10;
 
var
i,j:integer;
a:array [1..n,1..n] of integer;
b:array [1..n] of integer;
f,sra:integer;
buf,min,k:integer;
begin
clrscr;
randomize;
for i:= 1 to n do
  begin
   for j:= 1 to n do
    begin
     a[i,j]:=random(10);
    write(a[i,j]:2);
    end;
     writeln;
      end;
      {SA}
      writeln;
     for i:= 1 to n do
     begin
     f:=0;
     for j:= 1 to n do
   f:=f+a[i,j];
  sra:=f;
  b[i]:=sra;
 write((b[i]/10):0:0,' '); end;
 writeln;
 
 {sort}
 k:=1;
 min:=k;
 for i:= n-1 downto 1 do
 for j:= 1 to i do
 if b[j]>b[j+1] then begin
 buf:=b[j];
 b[j]:=b[j+1];
 b[j+1]:=buf;
 end;
 
 writeln('Otsortirovanniy: ');
 for i:= 1 to n do
 write((b[i]/10):0:0,' ');
 readkey;
end.