[PASCAL]Сдвиг элементов влево

const N = 10;
var a: array [1..N] of integer;
m:integer;
i:integer;
begin
for i:=1 to N do
a[i]:= Random(100);
writeln('Элементы массива a: ');
for i:=1 to N do
write(a[i],' ');
writeln;
m:=a[1];
for i:=1 to N-1 do
a[i]:= a[i+1];
a[N]:= m;
writeln('После сдвига влево: ');
for i:=1 to N do
write(a[i],' ');
writeln;
end.