Ввести однородный вещественный массив из 20 элементов - Pascal ABC

Формулировка задачи:

Ввести однородный вещественный массив из 20 элементов. Упорядочить массив по убыванию элементов. Посмотрите пожалуйста, скажите в чём ошибка.

var
a:array[1..20] of integer; b:array[1..20] of integer;
i,j,x,n: integer;
begin
randomize;
writeln('ishodnyj massiv');
for i:=1 to 20 do
begin
a[i]:=random(20);
write(a[i]:4);
end; Writeln;
for i:=1 to n-1 do begin
if a[i]<a[i+1] then  b[i]:=a[i+1]  else
 b[i]:=a[i]; write(b[i]); end;
 end.

Решение задачи: «Ввести однородный вещественный массив из 20 элементов»

Листинг программы

var  a:array[1..20] of integer; 
      i,j,x,n,k: integer;
begin
   randomize;
   writeln('ishodnyj massiv');
   for i:=1 to 20 do
   begin
       a[i]:=random(20);
       write(a[i]:4);
   end; 
   Writeln;
   for i:=1 to 19 do
       for j:=i+1 to 20 do
           if a[i]<a[j] then begin
              k:=a[i];
              a[i]:=a[j];
              a[j]:=k; 
           end;
    for i:=1 to 20 do
        writeln(a[i]);
end.

Объяснение кода листинга программы

Создается переменная a типа array[1..20] of integer, что означает создание массива из 20 целых чисел.
Задаются переменные i, j, x и n типа integer.
Вызывается функция randomize, которая инициализирует генератор случайных чисел.
Выводится строка ishodnyj massiv, что означает однородный массив.
С помощью цикла for заполняются 20 элементов массива a случайными числами от 0 до 19 (так как random(20) генерирует случайное число от 0 до 19).
Выводится значение каждого элемента массива a с помощью функции write(a[i]:4), где i - номер элемента.
Выводится символ новой строки с помощью функции Writeln.
Используется вложенный цикл for, который проходит по всем элементам массива a с номерами от 1 до 19.
Внутри вложенного цикла проверяется, является ли текущий элемент a[i] меньшим, чем следующий элемент a[j].
Если это условие выполняется, то обмениваются значения элементов a[i] и a[j] с помощью переменных k и a[i].
Выводится значение каждого элемента массива a с помощью функции write(a[i]:4).
Выводится символ новой строки с помощью функции Writeln.
Цикл for завершается.
Выводится последний элемент массива a с помощью функции write(a[20]:4).
Выводится символ новой строки с помощью функции Writeln.
Программа завершается.