Как исправить ошибку - PascalABC.NET

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

Условие

Дан массив из N целых чисел (N задайте в константе от 10 до 1000, элементы не превосходят по модулю 1000). Требуется сдвинуть его на k позиций вправо (k вводится). То есть, из массива 1 2 3 4 5 при сдвиге на две позиции вправо должен получиться массив 4 5 1 2 3.

Есть код на паскале:

program CiclSdvig;
var
 a:array[1..100]of integer;
 i,n,s:integer;
function CSdvig(var a:array[1..100]of integer;s:integer):array[1..100]of integer;
var k:integer;
begin
 k:=((s+n)mod n)+1;
 for i:=1 to n do
 begin
  result[k]:=a[i];
  k:=(k+1)mod n;
  if k=0 then k:=n;
 end;
end;
begin
 read(n,s);
 for i:=1 to n do read(a[i]);
 for i:=1 to n do write(a[i],' ');
 a:=CSdvig(a,s); writeln;
 for i:=1 to n do write(a[i],' ');
 writeln;
end.

При попытке выполнить выдаёт ошибку: Тип параметра или возвращаемого значения не может быть описанием записи или описанием массива с границами. Не могу исправить ошибку. Спасибо

Решение задачи: «Как исправить ошибку»

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

type mas=array[1..100]of integer;
function CSdvig(a:mas;n,s:integer):mas;
var i,k:integer;
begin
 k:=((s+n)mod n)+1;
 for i:=1 to n do
 begin
  result[k]:=a[i];
  k:=(k+1)mod n;
  if k=0 then k:=n;
 end;
end;
var
 a:mas;
 i,n,s:integer;
begin
 read(n,s);
 for i:=1 to n do readln(a[i]);
 for i:=1 to n do write(a[i],' ');
 a:=CSdvig(a,n,s); 
 writeln;
 for i:=1 to n do write(a[i],' ');
end.

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

Объявлена переменная mas типа массив целых чисел от 1 до 100.
Объявлена функция CSdvig с тремя аргументами типа mas, n и s (номер, количество, сдвиг).
В функции CSdvig объявлены три переменные i, k и result типа integer.
Переменная k инициализируется как ((сумма s и n) % n) + 1.
Используется цикл for для перебора первых n элементов массива a.
Каждый элемент массива a копируется в элемент с индексом k в массиве result.
Значение переменной k увеличивается на 1, при этом если оно достигает значения n, то оно обновляется как n.
В конце функции CSdvig возвращается массив result.
В основной программе объявлены три переменные a, i и n типа integer.
Используется цикл for для считывания первых n целых чисел в массив a.
Используется цикл for для вывода первых n элементов массива a.
Вызывается функция CSdvig, передавая ей массив a, значение n и значение s.
Выводится новая строка.
Используется цикл for для вывода элементов массива a.