Pascal контрпример - в трех тестах ошибка

[Izobara]

Заданные две строки текста одинаковой длины, состоящие из маленьких и больших букв латинского алфавита. Нужно проверить образовано ли вторую строчку путем циклического сдвига первой строки. Если это так, то вывести минимально возможный размер сдвига или -1 в противном случае.* Циклически сдвинуть строку на одну букву справа означает переместить позицию каждой буквы этой строки, кроме последней справа, а значение последней буквы поместить на начало слова. (Если слово «aaabb» сдвинуть на 1 позицию вправо, то получим «baaab»). Аналогичным образом, но в обратную сторону выполняется циклический сдвиг строки слева. (Смещение слова «ebcdaaa» на 2 позиции влево даст «cdaaaeb»).Входные данные: На вход подается два текстовых строки одинаковой длины. Длина строки не превышает 1000 символов.Исходные данные: Необходимо вывести длину минимального сдвига, или число -1, если вторая строка не цикличен смещением первой строки
Примеры
abcde deabc*-> 2
aaab aaab -> 0
aab abc-> -1

У меня не проходит 3 теста, говорит: "Неправильный ответ". Приведите контрпример, когда мое решение неправильно.

var
  a, b, temp: string;
  ch: char;
  i, right, left, result: integer;

begin
  Readln(a);Readln(b);
  if a = b then 
  begin
    Write(0); halt;
  end;
  temp := a;
  for i := 1 to length(a) do
  begin
    if a = b then begin a := temp; break; end;
    ch := a[1];
    delete(a, 1, 1);
    a := a + ch;
    inc(left);
  end;
  for i := 1 to length(a) do
  begin
    if a = b then begin a := temp; break; end;
    ch := a[length(a)];
    delete(a, length(a), 1);
    a := ch + a;
    inc(right);
  end;
  if left > right then result := right else
    result := left;
  if (left = length(a)) or (right = length(a)) then 
    result := -1;
  Write(result); 
end.

Update:
понял, там строки больше 255 знаков. Кто-то может помочь это реализовать с помощью массивов, а то уже сил нет.

[Zer0]

Думаю, лучше такое реализовать циклическим списком - больше возможностей и меньше ограничений