Pascal/Turbo Pascal - necesito ayuda(pascal) urgente!!!

hola a todos...necesito ayuda en la implementacion de un subprograma que dice... que dada una secuencia no decreciente de n ( n>=0) enteros, introducida por el terminal y terminada en 999, calcule la longitud del rellano mas largo.Un rellano es una secuencia de enteros iguales....staré muy agradecido...gracias...

Debes decir si esos números se van cargando en un arreglo o si se va procesando a medida que los lees...

Pero básicamente, deberás tener una variable que guarde temporalmente el número leído anteriormente para comparar, y una variable que guarde el máximo y se vaya actualizando.

Así que dime si es con un arreglo, lista, o cómo, y te podré dar una ayuda más precisa.

Un abrazo!

var
act, ant, cont, max: integer;
begin
ant:=-1;
max:=0;
cont:=0;
Write('Ingrese un número: ');
ReadLn(act);
while act <> 999 do
begin
if ant = act then
begin
inc(cont);
if cont > max then max:=cont;
end
else cont:=0;
ant:=act;
ReadLn(act);
end;
WriteLn('El rellano más largo mide: ', max);
end.

:S

eres el mejor