задача про цикл. перемещения

вообщем нужно составить програму(СРОЧНО!!!) где вводиться число с количеством букв в слове, потом первое слово, второе. и нужно найти сколько цикличных перемещений было сделано(ето когда последняя буква переходит на место первой а остальные сдвигаються на одну вправо).Мои наработки(исправте почему неправильно идет):

var s1,s2:string;c:char; n,k:integer;i:longint;
begin
readln(n);
readln(s1);
readln(s2);
k:=0;
for i:=1 to n do begin
c:=s1[n];
s1[n-i]:=s1[n-i+1];
s1[1]:=c;
k:=k+1;
end;
writeln(k);
end.