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

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.