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

Var ar:array[1..10] of integer;
i,c:integer;
begin
randomize;
writeln(First array:);
for i:=1 to 10 do
 begin;
  ar[i]:=random(30);
  write(ar[i]:4);
 end;
for i:=2 to 10 do
 ar[i-1]:=ar[i];
c:=ar[1];
ar[1]:=ar[9];
ar[9]:=c;
writeln;
writeln(Final array:);
for i:=1 to 9 do
write(ar[i]:4);
end.