Массив: Расположить отрицательные элементы последовательности в порядке убывания

uses crt;
var
a: array [1..20] of integer;
i,k: byte;
tmp: integer;
begin
writeln('Массив:');
for i:=1 to 20 do
begin
a[i]:=-10+random(40);
write(a[i],' ');
end;
writeln();
for i:=1 to 20-1 do
for k:=i+1 to 20 do
if (a[i] < 0) and (a[i] > a[k]) then
begin
tmp:=a[i];
a[i]:=a[k];
a[k]:=tmp;
end;
writeln('Отсортированный массив:');
for i:=1 to 20 do
begin
write(a[i],' ');
end;
writeln();
end.

var a: array [1..20] of integer;
    i, k: byte;
    tmp: integer;
begin
  randomize;
  writeln('Массив:');
  for i := 1 to 20
    do begin
      a[i] := 99 - random(199);
      write(a[i]:4)
    end;
  writeln;
  for i := 1 to 20 - 1
    do for k := i + 1 to 20
      do if (a[k] < 0) and (a[i] < a[k])
        then begin
          tmp := a[i];
          a[i] := a[k];
          a[k] := tmp
        end;
  writeln('Отсортированный массив:');
  for i := 1 to 20 do write(a[i]:4);
  readln
end.