Сортировка массива. Задача из курсовой работы.

Program n1;
Const n=50;
Var a:array[1..n] of integer;
    i,x:integer;
    p:boolean;
Begin
 Randomize;
 writeln;
 writeln('Masiv:');
 for i:=1 to n do
  begin
   a[i]:=random(100)-50;
   write(' ',a[i]);
  end;
 repeat
  p:=true;
  for i:=1 to n-1 do
   if (a[i]<0)and(a[i+1]>0) then
    begin
     p:=false;
     x:=a[i];
     a[i]:=a[i+1];
     a[i+1]:=x;
    end;
 until p;
 writeln;
 writeln('Obrabotano:');
 for i:=1 to n do write(' ',a[i]);
End.

Readln;

Program n1;
uses crt;
Const n=50;
Var a:array[1..n] of integer;
    i,x,j:integer;
 
Begin
 Randomize;
 writeln;
 writeln('Masiv:');
 for i:=1 to n do
  begin
   a[i]:=random(100)-50;
   write(' ',a[i]);
  end;
for j:=0 to 50 do
begin
  for i:=1 to n-1 do
   if (a[i]<0)and(a[i+1]>0) then
    begin
     x:=a[i];
     a[i]:=a[i+1];
     a[i+1]:=x;
    end;
end;
 writeln;
 writeln('Obrabotano:');
 for i:=1 to n do write(' ',a[i]);
readkey
End.

g:=26; j:=1;
for i:=1 to 50 do begin
if a[i]<0 then a[i]:=a[j];
inc(j);
end;
for i:=1 to 50 do begin
if a[i]<0 then a[i]:=a[g];
inc(g);
end;

uses crt;
const n=50;
var i,j,tmp:integer;
    a:array[1..n]of integer;
begin
clrscr;
randomize;
i:=1;
repeat
tmp:=random(20)-10;
if tmp<>0 then begin
a[i]:=tmp; inc(i); end;
until i=n+1;
 
 
for i:=1 to n do
write(a[i]:3);
writeln;
writeln;
 
for i:=1 to n do
    begin
    for j:=1 to n do
        begin
        if a[i]>0 then
           begin
           if a[j]<0 then
              begin
              tmp:=a[i];a[i]:=a[j];a[j]:=tmp;
              end;
           end;
        end;
    end;
 
for i:=1 to n do
write(a[i]:3);
readln;
end.