Решение задачи Array 130

#include <stdio.h>
int main(void)
{
    int a[20];
    int n;
    printf("N: ");
    scanf("%i",&n);
 
    int i;
    for (i=0; i<n; ++i){
        printf("a[%i] : ",i+1);
        scanf("%i",&a[i]);
    }
 
    int len=1,maxlen=1,endmaxseries=1;
 
    for (i=1; i<n; ++i){
        if (a[i-1]!=a[i]) {
            if (len>=maxlen) maxlen=len;
            len=0;
        }
        ++len;
    }
 
    int i2;
 
    for (i=1; i<n; ++i){
        if (a[i-1]!=a[i]) {
            if (len==maxlen) {
                for (i2=++n-1; i2>i;--i2) a[i2]=a[i2-1];
                ++i;
            }
            len=0;
        }
        ++len;
    }
 
 
 
   for (i=0; i<n;++i) printf("a  %i : %i\n",i+1,a[i]);
 
    return 0;
}

program Array130;
var
 a,CountSeries,temp : array [1..20] of real;
 LengthSeries : array [1..20] of integer;
 N,i,i2,i3,NumSeries,MaxLengthSeries: integer;
 
begin
 Write('N: ');
 Readln(N);
 
 Writeln('A: ');
 for i:=1 to N do
  begin
   write(i,' :');
   readln(a[i]);
  end;
 
 NumSeries:=1;
 LengthSeries[NumSeries]:=1;
 MaxLengthSeries:=NumSeries;
 CountSeries[NumSeries]:=a[1];
 
 for i:=2 to N do
  begin
   if a[i-1]=a[i] then LengthSeries[NumSeries]:=LengthSeries[NumSeries]+1
   else
    begin
     if LengthSeries[NumSeries]>LengthSeries[MaxLengthSeries] then MaxLengthSeries:=NumSeries;
     inc(NumSeries);
     LengthSeries[NumSeries]:=1;
     CountSeries[NumSeries]:=a[i];
    end;
  end;
  if LengthSeries[NumSeries]>LengthSeries[MaxLengthSeries] then MaxLengthSeries:=NumSeries;
 
 i2:=LengthSeries[MaxLengthSeries];
 for i:=1 to NumSeries do
   if LengthSeries[i] = i2 then LengthSeries[i]:=LengthSeries[i]+1;
 
 i3:=0;
 
 for i:=1 to NumSeries do
   for i2:=1 to LengthSeries[i] do
    begin
     inc(i3);
     temp[i3]:=CountSeries[i];
    end;
 
 
 a:=temp;
 for i:=1 to i3 do writeln(a[i] );
end.