Составьте программку на паскале для упорядочения 5 чисел по убыванию и

Var
  A: array [1 .. 5] of real;
  i, j: byte;
  sum, tmp: real;

begin
  sum := 0;

  Наполнение массива
  for i := 1 to 5 do
  begin
    write('A[', i, '] = ');
    readln(A[i]);
    sum := sum + A[i]; // подсчет суммы
  end;
  writeln(13 + 'Сумма элементов = ', sum);

  Сортировка по убыванию
  for i := 1 to 4 do
    for j := i + 1 to 5 do
      if A[i] lt; A[j] then
      begin
        tmp := A[i];
        A[i] := A[j];
        A[j] := tmp;
      end;

  Вывод
  writeln('Отсортированный массив: ');
  for i := 1 to 5 do
    write(' ', A[i]);

end.