с клавиатуры заполняется массив из 20 элементов. Вывести на экран предпоследний элемент массива

begin
  var a:=ReadArrReal('Введите 20 произвольных чисел:',20);
  Writeln('Предпоследнее число равно ',a[18])
end.