Введите массив строк из N элементов, напечатайте элементы массива в прямом и обратном порядке — Pascal(Паскаль)

program р53;
  uses crt;
  const n=3;
  var a:array[1..n] of string;
      i: integer;
begin
  clrscr;
  for i:=1 to n do
    begin
      write(i, ' ');readln(a[i]);
    end;
  writeln;
  for i:=1 to n do
    begin
      write(a[i],' ');a[n+1-i]);
    end;
  readln;
end.