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

procedure provepka(var a:matr;namefil:stroka);
var
    dop:real;
    b:array [1..100] of real;
    w:text;
begin
    assign(w,namefil);
    rewrite(w);
    for i:=1 to n do
        e:=1;
    begin
        for j:=1 to n do
            If (j mod 2)=0 then
            begin
                b[e]:=a[i,j];
                e:=e+1;
            end;
        for l:=2 to d do
        begin
            for e:=d downto l do
                if b[e-1]<b[e] then
                begin
                    dop:=b[e-1];
                    b[e-1]:=b[e];
                    b[e]:=dop;
                end;
        end;
        e:=1;
        for j:=1 to n do
            if (j mod 2)=0 then
            begin
                a[i,j]:=b[e];
                e:=e+1;
            end;
        end;
        for i:=1 to n do
        begin
            writeln(w);
            for j:=1 to n do
                write(w,a[i,j]:10:3);
        end;
        close(w);
    end;