Ошибка в решении задачи "Занимательная физика"

var
  st : string;
  c : char;
  i , q : byte;
begin
   Assign (input , 'input.txt');
   Assign (output , 'output.txt');
   ReSet (input);
   ReWrite (output);
   ReadLn (st);
   Readln (c);
   q := length (st);
     for i:=2 to q-1 do
     if (st[i-1] = 'a') and (st[i] = 'b') and (st[i+1] = 'c') and (c = 'a') then
      begin
       Insert(c, st , i+1);
       write(st);
       exit
      end;
      
   for i:=2 to q-1 do
     if (st[i-1] = 'a') and (st[i] = 'b') and (st[i+1] = 'c') then
      begin
       Insert(c, st , i);
       write(st);
       exit
      end;
     
      
   for i:=2 to q do
     if (st[i-1] = 'b') and (st[i] = 'c') then
       begin
       Insert(c, st , 2);
       write(st);
       exit
       end
      else
        begin
        Insert(c, st , 1);
        write(st);
        exit
        end;
      
end.

begin
  Reset(input, 'input.txt');
  Rewrite(output, 'output.txt');
  
  var s := ReadlnString;
  var ch := ReadChar;
  
  var ind := s.IndexOf('abc');
  if ind=-1 then
  begin
    var before := ch='c';
    if before then write(ch);
    write(s);
    if not before then write(ch);
  end else
    write(s.Insert(ind+1,ch));
  
end.

var 
  s : string;
  ch : char;
  n : integer;
begin
  Reset(input, 'input.txt');
  Rewrite(output, 'output.txt');
  ReadLn (s);
  ReadLn (ch);
  n := pos ('abc' , s);
  
  if n > 0 then
    if ch = 'a' then
     Insert(ch, s , n+2)
    else
     Insert(ch, s , n+1); 
   
   
   if n = 0 then
    if ch = 'a' then
     Insert(ch, s , n+2)
    else
     Insert(ch, s , n+1);
    
   write (s);
end.

  if n > 0 then
    if ch = 'a' then
     Insert(ch, s , n+2)
    else
     Insert(ch, s , n+1); 
   else
    if ch = 'a' then
     s:=s+ch
    else
     s:=ch+s;

var 
  s : string;
  ch : char;
  n : integer;
begin
  Reset(input, 'input.txt');
  Rewrite(output, 'output.txt');
  ReadLn (s);
  ReadLn (ch);
  n := pos ('abc' , s);
  
  if n > 0 then
    if ch = 'a' then
     Insert(ch, s , n+2)
    else
     Insert(ch, s , n+1); 
   
   
   if n = 0 then
    if ch = 'a' then
     s := s + ch
    else
     s := ch + s;
    
   write (s);
end.

begin
  Reset(input, 'input.txt');
  Rewrite(output, 'output.txt');
  
  var s := ReadlnString;
  var ch := ReadChar;
  
  var ind := s.IndexOf('abc');
  if ind=-1 then
  begin
    var before := ch='c';
    if before then write(ch);
    write(s);
    if not before then write(ch);
  end else
  if ch='a' then
    write(s.Insert(ind+2,ch)) else
    write(s.Insert(ind+1,ch));
  
end.

function Pos(subs, s: string; from: integer): integer;
begin
  if (subs = nil) or (subs.Length = 0) or (from > s.Length) then
    Result := 0
  else Result := s.IndexOf(subs, from - 1, System.StringComparison.Ordinal) + 1;
end;