Переставить элементы массива Х(n) так, чтобы в начале этой последовательности оказались положительные числа

uses crt;
var A:array[1..20] of integer;B:array[1..10] of integer;
    i,j:integer;
begin
clrscr;
for i:=1 to 20 do
begin
write('vvedit a',i);
readln(a[i]);
end;
j:=1;
for i:=1 to  10 do
begin
b[i]:=a[j]+a[j+1];
j:=j+2;
writeln('b=',b[i])
end;
end.

Uses crt; 
Const N = 100; 
Type 
Masiv = array[1..N] of real; 
Var A,B:Masiv; {A - масив для зберігання  
початкової послідовності, В -  
відсортований масив} 
i,j,count:byte; {і,j - змінні циклу, count -  
кількість елементів, що  
залишились на своїх місцях} 
Max:real; {Max - максимальний елемент  
підмасиву} 
N_max:byte; {N_max - номер максимального  
елементу} 
Begin 
Randomize;  
Clrscr; 
For i:=1 to N do 
Begin 
A[i]:=random*100-random*50; {Заповнення масиву  
випадковими дійсними числами} 
Write(A[i]:8:2); {Виведення масиву на екран  
для контролю правильності  
роботи програми} 
End; 
B:=A;  
For i:=1 to N-1 do 
Begin 
Max:=B[i]; {Зберігання еталону максимуму} 
N_Max:=i; {Зберігання номера максимуму} 
For j:=i+1 to N do 
If B[j]>Max  
then 
Begin 
Max:=B[j]; {Перевизначення еталону}  
N_Max:=j; {Зберігання номеру еталону} 
End; 
{Обмін місцями мінімуму та першого елементу  
підмасиву} 
B[N_Max]:=B[i];  
B[i]:=Max;  
End; 
Writeln; 
Readkey; {Затримка зображення на екрані} 
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;
writeln('Перестановка:');
for i:=1 to n do
write(a[i],' ');
readln
end.

uses crt;
const n=30;
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(10)-4;
     write(a[i],' ');
   end;
writeln;
writeln;
for i:=1 to n do
if a[i]<0 then a[i]:=0;
writeln('Замена отрицательных:');
for i:=1 to n do
write(a[i],' ');
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],' ');
readln
end.

var 
A: array [1..6, 1..6] of integer;
B: array [1..5, 1..6] of integer;
i,j:integer;
begin
writeln('Please, input matrix A elements: ');
for i:= 1 to 6 do
    for j:=1 to 6 do
    begin
        write('A[',i,',',j,'] = ');
        read(A[i,j]);
    end;
 
for j:= 1 to 6 do
    B[1,j] := A[1,j] + A[2,j];
    
for i:= 2 to 5 do
    for j:=1 to 6 do
        B[i,j] := A[i+1,j];
 
for i:= 1 to 5 do
begin
    for j:=1 to 6 do
    begin
        write(B[i,j], ' ');
    end;
    writeln;
end;
readln;
readln;
end.

var 
str: string;
i, j, n: integer;
b: boolean;
begin
writeln('String: ');
readln(str);
 
n:=1;
b:=false;
 
for i:=1 to length(str) do
begin
    if (Ord(str[i])>=65) and (Ord(str[i])<=90) then b:=true
        else if (Ord(str[i])>=97) and (Ord(str[i])<=122) and (i<>length(str)) then 
            else
            begin
                if b=false then
                begin
                    for j:=n to i do
                        str[j] := UpCase(str[j]);
                end;
                b:=false;
                n:=i;
            end;
end;
 
writeln(str);
 
readln;
end.