Создать массив из n элементов. Напечатать элементы массива в прямом и обратном порядке (программа Паскаль)

program massiv ;
uses crt;
 type mas=array[1..1000] of integer;
var i,n: integer;
    m:mas;
begin writeln ('введи кол-во эл-в массива') ;
readln (n);
    randomize;
       for i:=1 to n do
    begin
    m[i]:=random(45)+1;
    write(m[i], '  ');
        end;
        writeln;
    for i:=n downto 1 do
    begin
    write(m[i], '  ');
        end;        end.