Поиск элементов

[junkie]

Привет!
Помогите найти ошибку в листинге:

program poisk;
uses crt;
var a:array[1..100] of integer;
    k,i:integer;
begin
clrscr;
randomize;
for i:=1 to 100 do begin
a[i]:=random(10);
end;
k:=0;
for i:=1 to 100 do begin
if (a[i])=(a[i+1]) then k:=k+1
end;
writeln('k=',k);
for i:=1 to 100 do begin
write(a[i]:2);
end;
readln;
end.

Условие задачи:

Дана целочисленная таблица A[1:100].Проверить наибольшее число идущих в ней подряд элементов.

[junkie]

Я знаю,что собака у меня зарыта вот в этом фрагменте:

if (a[i])=(a[i+1]) then k:=k+1

[Hacker19_90]

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

Привет!
Помогите найти ошибку в листинге:

k:=0;
for i:=1 to 100 do begin
if (a[i])=(a[i+1]) then k:=k+1
end;
writeln('k=',k);

Как я понял надо найти максимальное колличество подряд идущих одинаковых элементов!!!
Тогда добавте ещё одну переменную

Kol := 0;
k:=0;
for i:=1 to 100 do begin
    if (a[i])=(a[i+1]) then k:=k+1
    Else if k > Kol then
         begin
               Kol := k;
               k := 0;
         end;
end;
writeln('k=',Kol);