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

program dd;
uses crt;
var
   k,g,s,i:integer;
   a:array[1..5] of integer;
begin
   clrscr;
   writeln('vvedite massiv');
   for i:=1 to 5 do
   readln(a[i]);
   for i:=5 downto 1 do
   if a[i]=0 then
   g:=i;
    for i:=g to 5 do
    s:=s+a[i];
    writeln('summa = ',s);
    for i:=1 to 5 do
    if a[i]<0 then k:=k+1;
    writeln('koli4estvo otric = ',k);
    for i:=5 downto 1 do
    write(a[i]:3);
    Readln;
end.

uses crt;
const max=100;
var a:array[1..max] of integer;
    n,i,j:byte;
    s,k,x:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива n=');
readln(n);
until n in [1..max];
writeln('Исходный массив:');
k:=0;
for i:=1 to n do
 begin
  a[i]:=random(10)-4;
  write(a[i],' ');
  if a[i]<0 then k:=k+1;
 end;
writeln;
writeln;
j:=0;
i:=n;
while (i>=1)and(j=0) do
if a[i]=0 then j:=i else i:=i-1;
if j=0 then writeln('В массиве нет нулевого элемента, сумма после него=0')
else
 begin
  writeln('Индекс последнего нулевого элемента=',j);
  s:=0;
  for i:=j+1 to n do
  s:=s+a[i];
  writeln('Сумма после последнего нулевого элемента=',s);
 end;
writeln('Количество отрицательных элементов=',k);
for i:=1 to n div 2 do
 begin
  x:=a[i];
  a[i]:=a[n-i+1];
  a[n-i+1]:=x;
 end;
writeln('Измененнный порядок следования:');
for i:=1 to n do
write(a[i],' ');
readln
end.