Расположить в массиве подряд только положительные элементы, вместо остальных элементов записать нули

program mas;
uses crt;
const
 n = 10;
var
 a:array[1..n] of integer;
 i,i2,tmp:integer;
begin
  randomize;
  for i:= 1 to n do
    a[i]:= random(20)-5;
  for i:= 1 to n-1 do
    for i2:= i+1 to n do
      if a[i] > a[i2] then begin
        tmp:= a[i];
        a[i]:= a[i2];
        a[i2]:= tmp;
      end;
  for i:= 1 to n do begin
    if a[i] < 0 then
      a[i]:= 0;
    writeln(a[i]);
  end;
end.

uses crt;
const n=15;
var a:array[1..n]of integer;
    i,k,j,x:integer;
begin
clrscr;
randomize;
writeln('Исходный массив:');
for i:=1 to n do
   begin
     a[i]:=random(20)-9;
     write(a[i],' ');
   end;
writeln;
writeln;
k:=0;
for i:=1 to n do
if a[i] >0 then
  begin
    k:=k+1;
    x:=a[i];
    for j:=i downto k+1 do
    a[j]:=a[j-1];
    a[k]:=x;
  end
else a[i]:=0;
writeln('Перестановка:');
for i:=1 to n do
write(a[i],' ');
readln
end.

Program mas;
Var G,Y:array[1..100] of integer;
i,k,j,x,m:integer;
Begin
k:=0;
for i:=1 to n do
if G[i]>0 then
  begin
    k:=k+1;
    x:=G[i];
    for j:=i to k+1 do
    G[j]:=G[j-1];
    G[k]:=x;
  end
else G[i]:=0;
 
For i:=1 to n fo
If G[i]>a then begin
m:=m+1;
y[m]:=G[i];
end;
END.

k:=0;
for i:=1 to n do
if G[i]>0 then
  begin
    k:=k+1;
    Y[k]:=G[i];
  end;
for i:=k+1 to n do Y[i]:=0;