Написать программу, которая вводит с клавиатуры 8 символов, организовывает их хранение в одномерном массиве, а затем выводит содержимое массива в обратном порядке

Var a: array [1..7] of char;
    i: byte;
begin
     for i := 1 to 7 do readln(a[i]);
     for i := 7 downto 1 do writeln(a[i]);
end.

Просто:)