заполнить и вывести массив состоящий из н элементов. После этого вывести полученый массив в обратном порядком

vara : array of integer;n,i: integer;beginwrite('Введите кол-во элементов ');read(n);SetLength(a,n);for i:=0 to Length(a)-1 do begin    write('Элемент ', i+1 ,' равен = ');    readln(a[i]);end;write('Правильный порядок ');     for i:=0 to Length(a)-1 do begin    write(a[i],' ');end;write('Обратный порядок ');    for i:=Length(a)-1 downto 0 do begin  write(a[i],' ');end;end.