Перестановки в массиве

program Project183;
{$APPTYPE CONSOLE}
 uses SysUtils;
 type art=array of integer;
 var a:art;x:integer; i,j,n,k:integer;
 begin//main
 write('vvedit n'); read(n);
 setlength(a,n+1);
 writeln('chysla');
 for i:=1 to n do
 read(a[i]);
 i:=1;
 for k:=1 to n do
 if a[i]>0 then
 begin
 x:=(a[i]);
 for j:=i to n-1 do a[j]:=a[j+1];
 a[n]:=x;
 end
 else inc(i);
 for i:=1 to n-1 do write(a[i],', ');
 write(a[n]); read(i);
 readln(i);
 end.

program Project183;
{$APPTYPE CONSOLE}
 uses SysUtils;
 type art=array of integer;
 var a:art;x,code:integer; i,j,n,k:integer;s,s1:string;
 begin//main
 
 write('vvedit n'); read(n);
 setlength(a,n+1);
 writeln('chysla');
 for i:=1 to n do
 read(a[i]);
 i:=1;
 for k:=1 to n do
 if a[i]>0 then
 begin
 x:=(a[i]);
 for j:=i to n-1 do a[j]:=a[j+1];
 a[n]:=x;
 end
 else inc(i);
  s1:=':';
str(a[n],s);
for i:=1 to length(s) do
begin
s1:=s1+s[i];
end;Val(s1,a[i],code);
 for i:=1 to n-1 do  write(a[i],', ');
 write(a[n]); read(i);
 readln;
 readln;
 end.

uses crt;
const n=20;
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(50)-30;
     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;
writeln('Перестановка вперед:');
for i:=1 to n do
write(a[i],' ');
writeln;
writeln;
{инверсия отрицательных}
for i:=1 to k div 2 do
 begin
  x:=a[i];
  a[i]:=a[k-i+1];
  a[k-i+1]:=x;
 end;
writeln('Инверсия отрицательных:');
for i:=1 to n do
write(a[i],' ');
readln
end.