Создать массив из 20 случ. Чисел на промежутке от -10 до 30 , отсортировать массив по убыванию

На экран вывести исходный и отсортированный массив

vara:array[1..20] of integer;i,j,x:integer;beginrandomize;writeln('Исходный массив');for i:=1 to 20 dobegina[i]:=-10+random(40);write(a[i]:4);end;writeln;for i:=1 to 19 dofor j:=i+1 to 20 doif a[i]<a[j] then begin x:=a[i]; a[i]:=a[j]; a[j]:=x; end;writeln('Новый массив');for i:=1 to 20 dowrite(a[i]:4);readln;end.