Преобразовать массив х по правилу - Pascal ABC

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

Дано: var x,y:array [1..7] of real; k: 1..7 Преобразовать массив Х по следующему правило (воспользовавшись массивом у как вспомогательным): Элементы массива Х циклически сдвинуть на К позиций влево.

Решение задачи: «Преобразовать массив х по правилу»

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

var x,y:array [1..7] of real;
    k,n,i: 1..7;
begin
writeln('Введите в строку через пробел 7 элементов массива, вещественные числа');
for i:=1 to 7 do
read(x[i]);
writeln;
write('Введите число позиций сдвига от 1 до 7 k=');
readln(k);
if k=7 then
 begin
  writeln('Массив остается без изменений');
  exit;
 end;
for i:=1 to 7-k do
y[i]:=x[i+k];
for i:=1 to k do
y[7-k+i]:=x[i];
for i:=1 to 7 do
write(y[i],' ');
end.

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

Создается переменная x типа array [1..7] of real, которая будет использоваться для хранения введенных пользователем чисел.
Создаются три переменные k, n и i типа 1..7, которые будут использоваться для итерации по массиву x.
Выводится сообщение с просьбой ввести 7 элементов массива, вещественных чисел.
Для каждого элемента массива x с индексом от 1 до 7 считывается значение и сохраняется в соответствующий элемент массива y.
Для каждого элемента массива x с индексом от 1 до 7-k считывается значение и сохраняется в соответствующий элемент массива y.
Выводится сообщение с просьбой ввести число позиций сдвига от 1 до 7 для k.
Проверяется, что введенное значение для k равно 7. Если это так, выводится сообщение Массив остается без изменений и цикл прерывается.
Если значение k не равно 7, начинается цикл, который повторяется до тех пор, пока k не станет равным 7.
В цикле для каждого элемента массива x с индексом от 1 до 7-k считывается значение и сохраняется в соответствующий элемент массива y.
В цикле для каждого элемента массива x с индексом от 1 до k считывается значение и сохраняется в соответствующий элемент массива y.
Выводится сообщение с просьбой ввести 7 элементов массива, вещественных чисел.
Цикл завершается.