Оформить задачу на языке Паскаль - Элементы массива а циклически сдвинуть на 1 позицию влево, а первый и последний элементы

program arr;const n = 40; //задает число элементов массиваvar a: array [1..n] of integer;temp: integer;beginrandomize;//Формирование массиваfor i: integer:= 1 to n do begina[i]:= random(30);write(a[i] : 3);end;temp:= a[1];writeln();//Сдвиг массиваfor i:integer:= 1 to n - 1 do a[i]:= a[i + 1];a[n]:=temp; //первый и последний элемент — обмен значениями//вывод массива со сдвигомfor i: integer:= 1 to n do write(a[i] : 3);end.