СРОЧНО ПОМОГИТЕ!!!
Как обратить массив в Pascale ABC?
(тоест 1 2 3 4 5 сделать 5 4 3 2 1

const N = 10;var    a: array[1..N] of integer;    i: byte;    b: integer;begin    for i:=1 to N do        read(a[i]);     for i:=1 to N div 2 do begin        b := a[i];        a[i] := a[N-i+1];        a[N-i+1] := b;    end;     for i:=1 to N do        write(a[i],' ');     writeln;end.