Заполнить массив из 10 элементов в интервале [-50..50] и отсортировать его по убыванию.

Спасибо огромное!

program t1;var   i, j: integer;  mas: array [1..10] of integer;begin    randomize;    writeln ('сгенерированный масив: ');    for i := 1 to 10 do     begin      mas[i] := random (100) - 50;      write (mas[i]);    end;    begin    for j:=1 to 9 do      for i:=1 to 9-j do         if M[i] < M[i+1] then              swap(mas[i],mas[i+1])    end;    writeln ('отсортированный по убыванию массив: ');    for i := 1 to 10 do write (mas[i]);end;end.