осуществите циклический сдвиг компонент заданного вектора влево на одну позицию

. на языке паскаля

program sdvig; uses crt; cоnst n=10; k=3; var i,c,j:integer; b:array[1..n] of integer; BEGIN randomize; clrscr; writeln('решение задачи на сдвиг вектора '); writeln('---------------------------'); writeln; writeln('вектор В: '); for i:=1 to n do begin b[ i ]:=random(101); write(b [ i ]:3); end; writeln; for j:=1 to k do begin c:=b[ n ]; for i:=n-1 downto 1 do b[i+1]:=b[ i ] ; b[1]:=c; for i:=1 to n do write(b[ i ]:3); writeln; end; writeln('конец задачи '); readkey; END.