Пузырьковая сортировка массива - Turbo Pascal

Формулировка задачи:

Отсортировать положительные элементы одномерного массива, отрицательные оставить на местах. Пузырьковая сортировка.(Нужно сделать через 2 массива без процедур или через 1 массив.) Пример ввода массива: 1 -2 123 -3 -4 21 5 -9 0 23 После сортировки 0 -2 1 -3 -4 5 -9 21 23 123

program Project11;
 
{$APPTYPE CONSOLE}
uses
  SysUtils,
  windows;
 
var mas:array [1..10] of integer;
a,i,j:integer;
begin
SetConsoleCP(1251);
SetConsoleOutputCP(1251);
 
for i:=1 to 10 do
begin
Writeln('Введите ',i,' Элемент');
readln(mas[i]);
end;
Writeln('Исходный Массив: ');
for i:=1 to 10 do
begin
write(mas[i],' ');
end;
for i:=1 to 10-1 do
begin
for j:=1 to 10-1 do
begin
if (mas[j]>=0) and (mas[j]>mas[j+1]) then
begin
a:=mas[j+1];
mas[j+1]:=mas[j];
mas[j]:=a;
end;
end;
end;
Writeln;
Writeln('После Сортировки: ');
 
for i:=1 to 10 do
write(mas[i],' ');
readln
end.

Решение задачи: «Пузырьковая сортировка массива»

textual
                            Листинг программы 
                        

                            program Project11;
 
const
  n = 5;
 
var
  mas: array [1..10] of integer;
  a, i, j: integer;
 
begin
  
  for i := 1 to n do
  begin
    Writeln('Введите ', i, ' Элемент');
    readln(mas[i]);
  end;
  Writeln('Исходный Массив: ');
  for i := 1 to n do
  begin
    write(mas[i], ' ');
  end;
  for i := 1 to n - 1 do
  begin
    for j := i + 1 to n do
      if (mas[i] >= 0) and (mas[j] >= 0) and (mas[i] > mas[j]) then
      begin
        a := mas[i];
        mas[i] := mas[j];
        mas[j] := a;
      end;
  end;
  Writeln;
  Writeln('После Сортировки: ');
  
  for i := 1 to n do
    write(mas[i], ' ');
  readln
end.
                        