Расположить элементы каждой строки матрицы в порядке возрастания - Turbo Pascal - Ответ 7747017

Uses crt;
Const
  xmin=1;
  xmax=1000;
Type
  Matrix=array[xmin..xmax,xmin..xmax] of Integer;
  {Процедура для вывода исходной матрицы на экран}
 
Procedure BM(var a:Matrix;x:Integer);
Var
  i,j:Integer;
Begin
  Writeln('Исходная матрица:');
  For i:=1 to x do
    Begin
      Writeln;                                                                  
      For j:=1 to x do
        Write(' ',a[i,j],' ')
    End;
  Writeln;
End;
{Конец процедуры вывода на экран}
 
{Процедура сортировки строчек по возрастанию}
 
Procedure CCTPB(var a:Matrix;x:Integer);                                       
Var
  i,j,k,c:Integer;                                                              
Begin
  For i:=1 to x do                                                           
    For k:=1 to (x-1) do                                              
      For j:=k+1 to x do                                                       
        If a[i,k]>a[i,j] then                                                   
          Begin                                                           
            c:=a[i,k];
            a[i,k]:=a[i,j];
            a[i,j]:=c;
          End;
End;
{Конец процедуры сортировки по убыванию}
 
Var
  a:matrix;                                                                
  i,j,x,f,v:Integer;                                                     
Begin
  cls;                                                                          
  randomize;                                                                    
  Repeat
    Write('Введите размер квадратной матрицы в диапазоне с ',xmin,' до ',xmax,' : ');
    Readln(x);
  Until (x>xmin) and (x<xmax);
  Writeln('Как хотите ввести матрицу?');
  Repeat
    Writeln('1 - Автоматический ввод матрицы ');
    Writeln('2 - Ручной ввод матрицы');
    Writeln;
    Readln(f);
  Until (f<3) and (f>0);
  {Задание матрицы}
  If f = 1 then
 {Автоматический ввод}
    Begin
      Writeln;
      Write('Введите верхнее число для генератора случайных чисел: ');
      Readln(v);
        For i:=1 to x do
          Begin
            For j:=1to x do
              Begin
                a[i,j]:=Random(v);
              End;
          End;
    End
  Else
 {Ручной ввод}
    Begin
      For i:=1 to x do
        Begin
          For j:=1 to x do
            Begin
              Writeln('Введите элемент ', i, ' строки и ', j, ' столбца: ');
              Readln(a[i,j]);
            End;
        End;
    End;
{Конец задания матрицы}
  BM(a,x);
  CCTPB(a,x);
  Writeln;
  Writeln('Сортировка строк в порядке неубывания.');
  Writeln;
  Write('Измененная матрица:');
  For i:=1 to x do
    Begin
      Writeln;                                                          
        For j:=1 to x do
          Write(' ',a[i,j],' ')
        End;
End.