Отсортировать каждую строчку в каждой матрице в порядке возрастания

const
N=3;
var mas:array[1..N,1..N] of integer;
i,j,k,z:integer;
begin
 Writeln('                        Кол-во матриц:',N);
 Writeln('');
  writeln('                           Матрицы ',N,'х',N);
 
{Выводим матрицы N раз}
    for k:=1 to N do
    begin
 
     {Вводим матрицу }
  for i:=1 to N do
   for j:=1 to N do
    mas[i,j]:=random(99)+1;
    {end}
 
 
      {Выводим матрицу}
       for i:=1 to N do
        begin
         for j:=1 to N do
          write(mas[i,j],'  ');
          writeln('');
        end;
      {end}
     writeln('');
 
    end;
{end}
 
{Выводим отсортированную матрицу N раз}
    for k:=1 to N do
    begin
 
  {Производим сортировку матрицы}
   for i:=1 to N do
     for j:=1 to N-1 do
      if mas[i,j]>mas[i,j+1] then
      begin
       z:=mas[i,j]; mas[i,j]:=mas[i,j+1]; mas[i,j+1]:=z
       end;
     writeln;writeln;writeln('Ìàññèâ ïîñëå ñîðòèðîâêè');
 
           {Выводим сортированную матрицу}
   for i:=1 to N do
   begin
    for j:=1 to N do
     write(mas[i,j],' ');
           writeln('');
     end;
  {end}
     writeln('');
         end;
{end}
end.