Отсортировать каждую строку матрицы по убыванию - Pascal ABC - Ответ 2262357

program sortirovka;
const k=4;
Var   E:array [1..k,1..k] of Real;
    i,j,t:byte;
      a:Real;
Begin
  Writeln('Здравствуйте. Как вы будите вводить матрицу? 1-вручную, 0-автоматически');
  Readln(j);
  If j=1 then
    For i:=1 to k do
      For j:=1 to k do
        Begin
          Writeln('Введите ',j,' элемент',i,' строки вашей матрицы');
          Readln(E[i,j]);
        end
  else
    For i:=1 to k do
      for j:=1 to k do
        E[i,j]:=Random(100)-50;
        
  Writeln('Ваша матрица до сортировки:');
  For i:=1 to k do
    Begin
      For j:=1 to k do
        Write(E[i,j]:10:0);
      Writeln;
    end;
  Writeln;
  Writeln;
  For i:=1 to k-1 do
    For j:=1 to k do
      For t:=1 to k-1 do
        If E[j,t]<E[j,t+1] Then   //Поменять знак и сортировка будет по возрастанию
          Begin
            a:=E[j,t];
            E[j,t]:=E[j,t+1];
            E[j,t+1]:=a;
          end;
    Writeln('Ваша матрица после сортировки:');
  For i:=1 to k do
    Begin
      For j:=1 to k do
        Write(E[i,j]:10:0);
      Writeln;
    end;
end.