Найти количество копирований строки

uses
  crt;
 
var
  s, s0, s_kon: string;
  i, j, kol, kol_kon, len: integer;
 
begin
  clrscr;
  s  := 'cyberncybern';
  
  for j := length(s) downto 2 do 
  begin
    len := length(s) div j;
    s0 := copy(s, 1, len);
    kol := 0;
    for i := 1 to length(s) - length(s0) + 1 do 
    begin
      if copy(s, i, length(s0)) = s0 then inc(kol);
    end;
    
   if (length(s0)*j = length(s)) then  begin s_kon:=s0; kol_kon:=kol; end; 
  end;
  
  writeln(kol);
  writeln(s_kon);
  readln;
  
  readkey;
end.

var s:array[1..100000] of char;

program zxv27;
var b,a,s,c:string;
i,k,l,n,m:integer;
d: array [1..100000] of integer;
begin
readln(b);
k:=length(b); 
n:=0;
for i:=1 to k do begin
if k mod i=0 then begin n:=n+1; d[n]:=i;
end;
end;
for i:=1 to n-1 do
write (d[i],' ');
for i:=1 to n-1 do begin
a:=Copy(b,1,d[i]); 
writeln(a,' a');
for l:=1 to k div d[i] do
s:=s+a;
writeln(s,' s');
if s=b then begin m:=k div d[i]; c:=a;end;
if s=b then break;
Delete(s, 1,k); 
end;
writeln(m,' ',c)
end.