Поместить в массив элементы исходного массива в заданном порядке - Pascal

Формулировка задачи:

Дан массив А и k элементов (k <= 60). Получить массив С, содержащий элементы массива А в следующем порядке: ak,a1,a2,...ak-1

Решение задачи: «Поместить в массив элементы исходного массива в заданном порядке»

Листинг программы

var a,c:array[1..60] of integer;
    k,i:integer;
begin
randomize;
repeat
write('Введите размер массива от 2 до 60 k=');
readln(k);
until  k in [1..60];
writeln('Массив А');
for i:=1 to k do
 begin
  a[i]:=i;
  write(a[i]:4);
 end;
writeln;
writeln('Массив С');
for i:=1 to k do
 begin
  if i=1 then c[i]:=a[k]
  else c[i]:=a[i-1];
  write(c[i]:4);
 end;
end.

Объяснение кода листинга программы

Объявляется массив a размером от 1 до 60 и массив c того же размера.
Объявляются переменные k и i типа integer.
Генерируется случайное число и записывается в переменную k.
Повторяется ввод значения k до тех пор, пока оно не будет в пределах от 1 до 60.
Выводится сообщение Массив А.
В цикле от 1 до k каждому элементу массива a присваивается значение его индекса.
Каждый элемент массива a выводится.
Выводится сообщение Массив С.
В цикле от 1 до k каждому элементу массива c присваивается значение из массива a с помощью логики: если i равно 1, то c[i] присваивается значение из a[k], в противном случае c[i] присваивается значение из a[i-1].
Каждый элемент массива c выводится. Код генерирует массив a с элементами от 1 до k, а затем создает массив c, который содержит те же элементы, но в другом порядке.