Нарисовать блок-схему Задание на «разворот» массива. Нужно перевернуть массив и записать его в обратном порядке.

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

program massiv;
uses crt;
var
i,n,k,c:integer;
b:array[1..100] of integer;
BEGIN
randomize;
clrscr;
writeln;
write('Vvesti N: ');
readln(n);
writeln('Vektor B: ');
for i:=1 to n do begin
b[i]:=random(101); write(b[i]:3);
end;
writeln;
k:=n div 2;
for i:=1 to k do begin
c:=b[i]; b[i]:=b[n+1-i]; b[n+1-i]:=c end;
for i:=1 to n do
write(b[i]:3);
end.

Вроде как бы так - но возможны синтактические ошибки.