Напишите программу, которая шифрует тексты следующим образом: исходная строка разбивается на части по 3 символа и эти три символа перемещаются по кругу вправо на одну позицию. если последняя группа символов состоит из 1 или 2 символов, то они остаются неизменными turbo pascal

Var s:string; c:char; i:integer;
begin
writeln('Введите строку:');
readln(s);
for i:=0 to length(s) div 3-1 do
 begin
 c:=s[3*i+3];
 s[3*i+3]:=s[3*i+2];
 s[3*i+2]:=s[3*i+1];
 s[3*i+1]:=c;
 end;
writeln(s);
end.

Пример:
Primer, begin, end.iPrrmeb, ieg n,den.