[РЕШЕНО][Pascal] в 2 случаях выдает "Wrong Answer" в чем ошибка?

[Eugene_41]

Решение: https://programmersforum.ru/showpost...39&postcount=3

я тут наговнокодил. и в 2 случаях выдает "Wrong Answer" в чем ошибка?
код не меняйте

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.

[Serge_Bliznykov]

Сообщение от Eugene_41

я тут наговнокодил. и в 2 случаях выдает "Wrong Answer" в чем ошибка?

Скорее всего какие-то особые исходные данные, на которых ваш код лажает.

[OFFTOP]
а что с вашей прошлой темой (ML в шифре Цезаря. я там написал пост - предложил код программы, а Вы промолчали...

[Eugene_41]

✔ Этот пост помечен как решение ✔

Решение найдено

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.