ПОМОГИТЕ НАПИСАТЬ ПРОГРАММУ НА ЯЗЫКЕ ПАСКАЛЬ Уровень A. Заполнить массив случайными числами и выполнить циклический сдвиг элементов массива вправо на 1 элемент. Пример: Массив: 1 2 3 4 5 6 Результат: 6 1 2 3 4 5

var
a: array [1..6] of integer;
i,n,k:integer;
  begin
     writeln(Массив:);
     for i:=1 to 6 do
     begin
       a[i]:= random(15)+2;
       write(a[i], );
     end;
     writeln;
     n:=6;
        k:=a[1];
        for i:=1 to n-1 do
         begin
         a[i]:=a[i+1];
         end;
           a[n]:=k;
        writeln(Результат:);
        for i:=1 to n do
        write(a[i], );  end.