Расставить элементы строк с четными номерами матрицы в порядке убывания

program matr111;
 
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils, matr;
type
  matr=array[1..100, 1..100] of Real;
var
  a:matr;
 
begin
  VvodM(a,'in.txt',n);
  d:=(n div 2);
 proverka(a,'out.txt');
end.

unit matr;
 
interface
 
uses
  SysUtils;
type
  matr=array[1..100, 1..100] of Real;
 
procedure VvodM(var m,n:Integer);
procedure proverka(var a:matr);
 
implementation
 
procedure VvodM(var m,n:Integer);
var
   i,j:integer;
   fin:text;
begin
   assignfile(fin, 'in.txt');
   reset(fin);
   read(fin, m,n);
   for i:=1 to m do
   for j:=1 to n do
   Read(fin, a[i,j]);
   close(fin);
end;
 
procedure provepka(var a:matr);
var
  i,l,j,e,d:Integer;
 dop:real;
 b:array [1..100] of real;
 fout:text;
begin
 assign(fout,'matr.txt');
 rewrite(fout);
 for i:=1 to n do
 begin
  for l:=1 to d do
  j:=2;
  begin
   for e:=d downto l do
   if a[i,j]<a[i,j+2] then
    begin
     dop:=a[i,j];
     a[i,j]:=a[i,j+2];
     a[i,j+2]:=dop;
    end;
   j:=j+2;
   end;
  end;
 for i:=1 to n do
 begin
  writeln(fout);
  for j:=1 to n do
   write(fout,a[i,j]:10:3);
 end;
 close(fout);
end;
end.

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,Unit1,windows;
 
begin
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);
 
  com_arr;
  Writeln('Результирующий массив записан в файл output.txt');
  readln;
end.

5 6
1 3 4 0 9 7
9 5 3 7 5 7
2 4 3 6 8 5
3 5 3 6 7 5
0 7 8 5 7 5

unit Unit1;
interface
procedure com_arr;
implementation
procedure com_arr;
var
  i,k,m,n,a,b: integer;
  arr: array of real;
  c: real;
  input,output: TextFile;
begin
  AssignFile(input,'input.txt');
  Reset(input);
  AssignFile(output,'output.txt');
  Rewrite(output);
  Read(input,m,n);
  SetLength(arr,n);
  for i:=0 to (m-1) do //Перебираем строки
  begin
    for k:=0 to (n-1) do
    begin
      Read(input,arr[k]);
    end;
    if ((i mod 2) = 0) then //Если строка нечетная то сортируем
    begin
      for a:=0 to (n-2) do
      begin
        for b:=0 to (n-2) do
        begin
          if (arr[b]>arr[b+1]) then
          begin
            c := arr[b];
            arr[b]:=arr[b+1];
            arr[b+1]:=c;
          end;
        end;
      end;
    end;
    //Записываем массив в файл
    for k:=0 to (n-1) do write(output,arr[k]:2:0,' ');
    writeln(output);
  end;
  
  CloseFile(input);
  CloseFile(output);
end;