Составить программу которая будет сортировать все положительные элементы

[Wast]

Дан массив состоящий из 10 вещественных элементов. Составить программу которая будет сортировать все положительные элементы а отрицательные и нулевые элементы оставлять на своих местах.


плиз помогите ника не получается

Program n14;
Uses Crt;
Var N, i, k : Integer;
X, Y : Array [1..10] of Real;
BEGIN
ClrScr;
n:=10;
For i := 1 to N do
begin

Write('X[ ', i, ' ] = '); ReadLn(X[i])
end;

k:=0;
For i := 1 to N do
If X[i]>0 then
begin k:=k+1; Y[k]:=X[i]
end;

For i := 1 to N do
If X[i]=0 then
begin k:=i; Y[k]:=X[i]
end;

For i := 1 to N do
If X[i]<0 then
begin k:=i; Y[k]:=X[i]
end;


For i := 1 to N do Write(Y[i] : 5 : 1);
WriteLn; ReadLn;
END.


если ввести больше 3-4 отрицательных или нулевых элементов тогда получается сыр бор.. Пожалуйста помогите если не трудно. Буду признателен.

[alex_fcsm]

uses crt;
const n=10;
var a,b:array[1..n] of real;
    i,j,k:integer;
    temp:real;
    
begin
clrscr;
randomize;
for i:=1 to n do
 begin
   a[i]:=random(10)-random(7);
   write(a[i],' ');
 end;
 writeln;
k:=0;
for i:=1 to n do
 if  a[i]>0 then begin
                  inc(k);
                  b[k]:=a[i];
                 end;
 for i:=2 to k do
  for j:=k downto i do
   if b[j-1]>b[j] then
    begin
     temp:=b[j];
     b[j]:=b[j-1];
     b[j-1]:=temp;
    end;
k:=0;
for i:=1 to n do
begin
 if a[i]>0 then begin
                  inc(k);
                  a[i]:=b[k];
                end;
 write(a[i],' ');
 end;
end.