Как можно улучшить мой код ?

var
bol:boolean;
s,ss:string;
m:char;
j,i:integer;
begin
bol:=false;
 
readln(s);
readln(ss);
if s=ss then writeln(0)
else
begin
for i:=1 to length(s)-1 do begin
    m:=s[length(s)];
    for j:=length(s) downto 2 do s[j]:=s[j-1];
    s[1]:=m;
 
if s=ss then begin
bol:=true;
break;
end;
end;
if bol then writeln(i)
else
writeln(-1);
end;
end.

if s=ss then writeln(0)
else
begin
for i:=1 to length(s)-1 do begin
    m:=s[length(s)];
    for j:=length(s) downto 2 do s[j]:=s[j-1];
    s[1]:=m;
 
if s=ss then begin
bol:=true;
break;
end;
end;
if bol then writeln(i)
else
writeln(-1);
end;

j:=length(s);
for i:=0 to length(s)-1 do  
  if (copy(s,i+1,j-i)+copy(s,1,i)) = ss then begin
    bol:=true;
    break;
  end;
if bol then writeln(i)
else
writeln(-1);

if (s[i+1]=ss[1]) and ((copy(s,i+1,j-i)+copy(s,1,i)) = ss) then begin

function cmp(const p, q: String; d: Integer);
var j, k: Integer;
begin
  cmp:=False;
  k:=d+1;
  for j:=1 to Length(p)-d do begin
    if p[j]<>q[k] then Exit;
    Inc(k);
  end;
  k:=1;
  for j:=Length(p)-d+1 to Length(p) do begin
  begin
    if p[j]<>q[k] then Exit;
    Inc(k);
  end;
  Result:=True;
end;

if length(s)=length(ss) then 
for i:=0 to length(ss)-1 do  
  if (ss[i+1]=s[1]) and ((RightStr(ss,i+1)+LeftStr(ss,i)) = s) then begin
    bol:=true;
    break;
  end;
if bol then writeln(i) else writeln(-1);

var
  s,ss:string;
  j,i:integer;
begin
  readln(s); 
  readln(ss);
  j:=-1;
  if length(s)=length(ss) then 
    for i:=0 to length(ss)-1 do 
      if (ss[i+1]=s[1]) and ((RightStr(ss,i+1)+LeftStr(ss,i)) = s) then 
        begin
          j:=i;
          break;
        end;
writeln(j);
end.

var q, p: String;
begin
  ReadLn(p); ReadLn(q);
  WriteLn(Pos(q,p+p)-1);
end.

var
  s,ss:string;
  j,i:integer;
begin
  readln(s); 
  readln(ss);
  writeln(Pos(s,ss+ss)-1);
end.

uses SysUtils;
function cmp(const p, q: String; d: Integer): Boolean;
begin
  cmp:=
    CompareMem(@p[1],@q[d+1],Length(p)-d) and 
    ((d=0) or CompareMem(@p[Length(p)-d+1],@q[1],d));
end;

function cmp(s1,s2):integer;
var i,j:integer;
begin
s2:=s2+s2;
j:=length(s1);
I:=0;
while not CompareMem(@s1[1],@s2[1+i],j) and (i<j) do Inc(i);
result=i;
end;

uses Strings;
var
  p: array [0..20000] of Char;
  q: array [0..10000] of Char;
  t: PChar;
begin
  ReadLn(p); ReadLn(q);
  t:=StrEnd(p); Move(p,t^,t-p); t:=StrPos(p,q);
  if t=nil then WriteLn(-1) else WriteLn(t-p);
end.