ПОМОГИТЕ НАПИСАТЬ ПРОГРАММУ НА ЯЗЫКЕ ПАСКАЛЬ

Уровень A. Заполнить массив случайными числами и выполнить циклический сдвиг элементов массива вправо на 1 элемент.
Пример:
Массив:
1 2 3 4 5 6
Результат:
6 1 2 3 4 5

vara: 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.