Составить программу, позволяющую сформировать массив из десяти слов и вывести на экранах в обратном порядке; вопрос- как на языке Паскаль организовать работу программы-текста

Предыдущий
вопрос Следующий
вопрос

program ReverseArray;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
words: array[1..10] of string;
i: Integer;

begin
for i := 1 to 10 do
begin
Write('Введите слово ', i, ': ');
Readln(words[i]);
end;

for i := 10 downto 1 do
begin
Writeln(words[i]);
end;

Readln;
end.