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

uses crt;
var R:array[1..15,1..15]of integer;//матрица, а не линейный массив, как у Вас
n,i,j,k,x:integer;
begin
clrscr;
write('n=');readln(n);
writeln('Ishodnaia matrica:');
for i:=1 to n do  //создаем и выводим на экран матрицу (у Вас чтение из файла)
     begin
      for j:=1 to n do
        begin
          R[i,j]:=random(20);
          write(R[i,j]:3);
      end;
writeln;
end;
readln;
for i:=1 to n do
if i mod 2=0 then //если строка нечетная
     begin
        for j:=1 to m-1  do  //сортируем методом пузырька (Ваш метод не понял)
        for k:=1 to m-1  do
        if R[i,k]>R[i,k+1] then
            begin
              x:=R[i,k];
              R[i,k]:=R[i,k+1];
              R[i,k+1]:=x;
            end;
       end;
for i:=1 to n do  //выводим на экран
    begin
       for j:=1 to m do
       write(R[i,j]:3);
       writeln;
    end;
readln;
end.