Сортировка одномерного массива. Паскаль. Не найти ошибку, Буду благодарна)

[ТатьянаЧернышева]

Отсортировать положительные по возрастанию, отрицательные по убыванию... Только по возрастанию сортирует, не понимаю ничего, а сама плохо разбираюсь в программировании((


program sortirovka_odn_mas;
var a:array[1..50] of integer;
i,i1,x,n:integer;
begin
write('vvod kol-va elementov - ');
readln(n);
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
for i:=1 to n do
begin
if a[i]>0 then
begin
for i:=1 to n-1 do
for i1:=i+1 to n do
begin
if a[i]>a[i1] then
begin
x:=a[i];
a[i]:=a[i1];
a[i1]:=x;
end;
end;
end;
end;
for i:=1 to n do
begin
if a[i]<0 then
begin
for i:=1 to n-1 do
for i1:=i+1 to n do
begin
if a[i]<a[i1] then
begin
x:=a[i];
a[i]:=a[i1];
a[i1]:=x;
end;
end;
end;
end;
writeln;
for i:=1 to n do write (' ',a[i]);
end.


Заранее спасибо!

[McFrey]

const Maxm=20;
var
  mas: array[1..Maxm] of integer;
  i, j, temp, m, code: integer;
  st: string;
begin
  writeln('Данная программа позволяет отсортировать массив');
 writeln('Введите размерность массива (массив может содержать от 1 до 20 чисел)');
  readln(m);
  for i := 1 to m do 
  begin
    writeln('Введите элемент массива');
    repeat
    readln(st);
    val(st,mas[i],code);
    if code<>0 then
     writeln('Вам необходимо ввести число.Повторите ввод');
     until (code=0); 
  end;
 for i := 1 to m - 1 do
    for j := 1 to m - i do
      if mas[j] > mas[j + 1] then begin
        temp := mas[j];
        mas[j] := mas[j + 1];
        mas[j + 1] := temp
      end;
  writeln('Отсортированный массив: ');
   for i := 1 to m do
    writeln(mas[i]);
    
  readln
end.

эта программа сортирует массив в порядке возрастания
if mas[j] > mas[j + 1] then begin - если в этой строке знак > поменять на < то программа будет сортировать массив в порядке убывания

[ТатьянаЧернышева]

Спасибо большое) Буду пробовать!!!))