Программа для подсчета наибольшего количества повторения подряд числа!

program maxU;                       
var a:array [1..1000] of integer;
    c,dp,p,s,i:integer;
 
label 1;
 
begin
p:=1;
 
  writeln('Vvedite cislo: ');
  readln(s);
  for i:=1 to s do
  begin
  readln(a[i]);
  end;
 
 for i:=1 to s do
  begin
 
 
      if a[i]=a[i+1] then inc(p)
       else begin
        if p>dp then begin dp:=p; p:=1; end;
            end;
 
 end;
writeln('Dlina max cisla povtorenij',dp);
 
end.

var
  prev,cur,k,max:integer;
begin  
  writeln('Vvodite chisla, konets vvoda <0>');
  write('x=');
  readln(prev);
  max:=1;
  k:=1;
  repeat
    if prev<>0 then
      begin
        write('x=');
        readln(cur);
        if cur=prev then
          begin
            inc(k);
            if k>max then
              max:=k;
          end
        else
          k:=1;
        prev:=cur;
      end
    else
      max:=0;
  until prev=0;
  if max<>0 then
    write('Max. kol-vo podryad idushih odinakovyh chisel:',max)
  else
    write('Vy ne vvodili chisla');
end.

var
  prev,cur,k,max,n,i:integer;
begin  
  write('Kol-vo chisel:');
  readln(n);
  write('x=');
  readln(prev);
  max:=1;
  k:=1;
  for i:=2 to n do
    begin
      write('x=');
      readln(cur);
      if cur=prev then
        begin
          inc(k);
          if k>max then
            max:=k;
        end
      else
        k:=1;
      prev:=cur;
    end;
  write('Max. kol-vo podryad idushih odinakovyh chisel:',max);
end.