Операция с одномерным численным массивом, хелп! Опции

[Олег]

Задание: найти наибольшее количество цифр, идущих подряд.

Функция, использует переменные
ntemp - количество цифр в строке
temp - сам массив цифр

Function count(ntemp:byte; temp:massiv):byte;
Var i,t,c,max:byte;
Begin
max:=1;
For i:=1 to (ntemp-1) do if (temp[i]=temp[i+1]-1) then
begin
 t:=i;
 c:=1; while (t<ntemp) and (temp[t]=temp[t+1]-1) do
 begin
 if c>max then max:=c; else  inc©; inc(t);
 end;
 i:=t;
end;
count:=max+1;
End;

Проблема в следующем: функция циклится в процессе For , несмотря на то, что i много больше ntemp, чего, я полагаю, быть не должно.


Если дана строка вида 12345000 или 765123400 то проблем нет - последовательность одна. А вот при сравнении максимума все зависает.

Замечу, что пробовал не один алгоритм - эффект идентичный.