Сдвинь элементы Pascal

Задан одномерный массив целых чисел длины n. Сдвинуть элементы массива вправо циклически на 1 шаг.

Входные данные

   В первой строке задано количество элементов массива n (n ≤ 100). Во второй строке через пробел заданы сами элементы массива, значение каждого из которых по модулю не превышает 100.

Выходные данные

   В единственной строке вывести через пробел n чисел: новые значения элементов массива.

Var
 f1,f2:text;
 i,k,l:longint;
 Begin
 assign(f1,'input.txt'); reset(f1); read(f1,l);
 assign(f2,'output.txt'); rewrite(f2);
 for i:=1 to l do read(f1,k); close(f1); write(f2,k);
 reset(f1); read(f1,l);
 for i:=1 to l-1 do begin read(f1,k); write(f2,' ',k) end;
 writeln(f2); close(f1); close(f2)
 End.

Решение использует файлы для чтения и записи