Элементы заданного массива переписать в новый массив В в обратном порядке

program tmp;
uses crt;
const count=100;
var mas:array[1..count] of integer;
i,k,k1,n,s,p:integer;
begin
clrscr;
readln(n);
for i:=1 to n do begin
                 mas[i]:=random(11)-5;
                 write(mas[i],' ');
                 end;
writeln;
k:=0;
k1:=0;
s:=0;
p:=1;
for i:=1 to n do begin
                 if mas[i]>0 then begin
                                  s:=s+mas[i];
                                  inc(k)
                                  end;
                 if mas[i]<0 then begin
                                  p:=p*mas[i];
                                  inc(k1);
                                  end;
                 end;
write('s: ',s,' ; p: ',p);
readkey;
end.

program tmp;
uses crt;
const count=100;
var a,b:array[1..count] of integer;
i,n,k:integer;
begin
clrscr;
randomize;
readln(n);
for i:=1 to n do begin
                 a[i]:=random(20);
                 write(a[i],' ');
                 end;
writeln;
k:=0;
for i:=n downto 1 do begin
                     k:=k+1;
                     b[k]:=a[i];
                     end;
for i:=1 to k do write(b[i],' ');
readkey;
end.

program Project1;
 
uses
  SysUtils;
  var i,j,n,z:integer;
      s:string;
      a,b:array of integer;
begin
  n:=0;
 
  Write('Введите числа массива через Enter. В конце введите "ok" и нажмите Enter');
 
  Repeat
  Readln(s);
  If s='ok' then Break else
  Begin
  z:=StrToInt(s);
  SetLength(a, n+1);
  SetLength(b, n+1);
  a[n]:=z;
  Inc(n);
  end;
  Until s='ok';
 
  For i:=n-1 downto 0 do
  b[-1*(i-Length(b)+1)]:=a[i];
 
  For i:=0 to n-1 do
  Write(b[i], ' ');
 
  Readln;
 
 
end.