Напишите программу которая вводит с клавиатуры 30 символов, организовывает их хранение в одномерном массиве, а затем выводит содержимое массива в обратном порядке с указанием индекса каждого элемента.главное то что подчеркнуто, ?

Var a: array [1..30] of integer;
    i: integer;
begin
     for i := 1 to 30 do
         readln(a[i]);
     for i := 30 downto 1 do
         writeln('[', i, '] => ', a[i]);
end.

Проверил:)