проблеммы с некоторыми задачями

[sasha1993]

У меня эсть много задач которые проходят не все тесты ,и я не могу понять что я не учел.
в этой теме я прошу посмотреть ,чего я не учел ...

[sasha1993]

вот условие первой задачи и мой исходник
http://www.acmp.ru/index.asp?main=task&id_task=203

begin
   assignfile(input,'input.txt');
   reset(input);
   readln(s);
   readln(s2);

    fl:=false;
   for i:=1 to length(s) do
   begin
      q:=s[length(s)];
      for j:=1 to length(s)-1 do
      q:=q+s[j];
       s:=q;


      if s=s2 then
      begin
        fl:=true;
        break ;
      end;
   end;


   assignfile(output,'output.txt');
   rewrite(output);
   if fl=true then
   write(i) else write('-1');
   end.

[sasha1993]

если ошыбки нет ,прошу об этом написать,чтоб я ее не искал...

[LeBron]

Задача, которая прохоит не все тесты - это задача с неверным решением, писать "если ошыбки нет ,прошу об этом написать,чтоб я ее не искал... " - глупо.
Во-первых, то, что я сдесь вижу - не исходник, оно даже компилиться не должно. Где переменные?
Во-вторых, решение неверное (как я говорил выше). контрпример:
а
а
И я бы советовал переписать простым посом сдвига, а не двигать циклически. Благо в паскале есть встроенное решение подобной задачи, которое занимает ровно 1 строку.

[Tuz861]

Помогите плиз решить задачу...
Дан целочисленный массив размера N. Удалить из массива все соседние одинаковые элементы, оставив их первые вхождения.