Разделить все элементы массива на максимальный элемент и напечатать полученный массив

program Zadanie92;
var
  a: array [1..20] of real; // Переменная для хранения массива.
  i: integer;    // Промежуточная переменная для организации циклов.
  maximum: real;  // Переменная для хранения элемента с максимальным значением.
begin
  Randomize;
  writeln('Исходный массив:');
  for i:=1 to 20 do
    begin
    a[i]:= random(11); // Заполнение массива случайными числами.
    write(a[i]:5:1);        //  Вывод массива на экран.
    end;
  writeln;
  maximum:= a[1];
  for i:=2 to 20 do
     if a[i] > maximum then    // Поиск элемента с максимальным значением.
       maximum:=a[i];
  if maximum = 0 then      //  Проверка найденного максимума на возможность делимости.
    writeln('Элемент с максимальным значением равен нулю. Выполнить условия задачи невозможно.')
  else
  begin
  writeln('Элемент с максимальным значением равен: ',maximum:0:1);
  writeln('Измененный массив:');
  for i:= 1 to 20 do
    begin
    a[i]:= a[i] / maximum; // Деление всех элементов массива на минимальное значение.
    write(a[i]:5:1);      // Вывод массива на экран.
    end;
  end;
  Readln;
end.