Элементы каждой строки матрицы а 1;2 1;2 переставить в порядке возрастания их значений Написать алгоритм и блок-схему

Program SORT_1;   
Const n=10;
Var
    Mas  : array[1..n] of integer;
    i , c, p   : integer;
Begin
    Writeln(‘Введите значения элементов массива’);
    For i:=i to n do
    begin
    Write(‘mas[‘,i,’]=’);
    Readln(mas[i]);
         end;
    repeat
    p:=0;
    for i:=1 to n-1 do
        if mas[i]> mas[i+1] then
        begin   
            c:=mas[i];
            mas[i]:=mas[i+1];
            mas[i+1]:=c;
            p:=1;
        end;
    until p=0;
    writeln(‘Упорядоченный  по возрастанию массив:’);
    for i:=1 to n do writeln(‘mas[‘,i,’]=’, mas[i]);
End.