Здравствуйте, Sasha23.

Код в приложении. По умолчанию массив вводится рандомом, но в комментариях оставил и вариант ручного ввода массива.

Проверено на Turbo Pascal version 7.0


Приложение:
Uses crt;
var
i,j,perem,n,zapom:integer;
a:array [1..100] of integer;
begin
ClrScr;
Randomize;
Write('Vvedite razmernost massiva: ');
ReadLn(n);
{vvod vruchnuyu}
{For i:=1 to n do
begin
Write('a[',i,']=');
ReadLn(a[i]);
end;}
{vvod randomom}
For i:=1 to n do
begin
a[i]:=Random(100);
a[i]:=a[i]-Random(100);
Write(a[i]:7);
end;
{sortirovka}
for i:=1 to n-1 do
if a[i]<0 then
begin
zapom:=i;
perem:=a[i];
for j:=i+1 to n do
if ((a[j]>perem) and (a[j]<0)) then
begin
zapom:=j;
perem:=a[j];
end;
a[zapom]:=a[i];
a[i]:=perem;
end;
WriteLn;
{vyvod otsortirovannogo massiva}
WriteLn('Otsortirovanniy massiv:');
For i:=1 to n do
Write(a[i]:7);
ReadLn;
end.