Кому не лень, найдите ошибку в программке ПОЖАЛУЙСТА?

по-моему вконце выводить нужно мах, а не с - write(мах) ;

я бы писала так
p_max это ваше k

Var i,p_max, max:integer;
A:array [1..5] of integer;
C:array [1..5] of integer;
begin
Writeln('Введите исходный массив');
for i:=1 to 5 do
read(a);
for i:=1 to 5 do
write(a);
max:=0, p_max:=0;
for i:=1 to 5 do
begin
if a{i}=a[i+1]
p_max:=p_max+1;
else
begin
if (p_max>max)
then max:=p_max;
p_max:=0;
end;
end;
if (p_max>max)
then max:=p_max;

write (max);

1. С - это массив, как тогда можно переменной С присваивать C:=k?

Вот блок:

k:=1;
max:=1;

for i:=1 to 5-1 do
if A[ i ]=A[ i+1 ] then k:=k+1;
else
begin
if k > max then max:=k;
k:=1;
end;

с массивчиками ты перемудрила. С праздником!

тут даже нет массива дины 30

Вот исправленная задача:

----------------------------------------------------------------------------------------------------------------------

Program zadacha;
Uses
Crt;
Const
N = 30;
Type
odmas = array [1..N] of integer;
Var
i,j,k,max:integer;
A,B:odmas;

Begin

ClrScr;

WriteLn('Введите исходный массив: ');
WriteLn;

for i:=1 to N do
begin
Write(' A[',i,'] = ');
Read(A);
end;

k:=1;
j:=1;
for i:=1 to N-1 do
if A = A[i+1]
then
begin
k:=k+1;
B[j]:=k;
end
else
begin
k:=1;
j:=j+1;
end;

max:=0;
for i:=1 to j do
if B > max
then
max:=B;
WriteLn;
Write('Максимальное количество повторяющихся подряд чисел = ',max);
ReadKey;
End.

----------------------------------------------------------------------------------------------------------------------

Zadacha.rar (zadacha.pas, zadacha.bak, zadacha.exe)

p.s: я исправил ответ, в нём была ошибка. так же исправил файлы

=)

А на что ругается отладчик?