Записать в массив B длины всех серий исходного массива, а в массив C - значения элементов, образующих серии

program Array116;
var
a: array [1..20] of integer;
B: array [1..20] of integer;
C: array [1..20] of integer;
temp,M,N,i:integer;
begin
writeln('Введите N (N<=10)');
readln(N);
writeln('Значения массива А');
for i:=1 to n do begin write('a[',i,']=');readln(A[i]); B[i]:=i; end;
// решение 
temp:=0;
m:=0;
for i:=2 to n do
begin
inc(temp);
if a[i]<>a[i-1] then
begin
inc(M);
b[M]:=temp;
C[M]:=a[i-1];
temp:=0;
end;
end;
inc(temp);
inc(M);
b[M]:=temp;
C[M]:=a[i];
Writeln;
Writeln('Ответ');
Write(' A[]: '); 
for i:=1 to n do 
Write(A[i],' ');
Writeln;
Write(' B[]: '); 
for i:=1 to m do 
Write(b[i],' ');
Writeln;
Write(' C[]: '); 
for i:=1 to m do 
Write(c[i],' ');
end.
2)Дан целочисленный массив размера N. Преобразовать массив, увеличив его первую серию наибольшей длины на один элемент (определение серии дано в задании 1). 
program Array128;
var
a: array [1..40] of integer;
B: array [1..20] of integer;
C: array [1..20] of integer;
temp,M,N,i,j:integer;
begin
writeln('Введите N (N<=20)');
readln(N);
writeln('Значения массива А');
for i:=1 to n do begin write('a[',i,']=');readln(A[i]); B[i]:=i; end;
// решение 
temp:=0;
m:=0;
// формируем из исходного массива A[] два с длиной серий B[] и значением серий C[] 
for i:=2 to n do
begin
inc(temp);
if a[i]<>a[i-1] then
begin
inc(M);
B[M]:=temp;
C[M]:=a[i-1];
temp:=0;
end;
end;
inc(temp);
inc(M);
b[M]:=temp;
C[M]:=a[i];
// складываем массив A[] согласно задания. 
temp:=1;
for i:=1 to m do
begin
if b[i]>b[temp] then
begin
temp:=i;
end;
end;
inc(b[temp]);
temp:=0;
for i:=1 to m do
begin
for j:=1 to b[i] do
begin
inc(temp);
a[temp]:=c[i];
end;
end;
Writeln;
Writeln('Ответ');
Write(' A[]: '); for i:=1 to temp do Write(A[i],' ');
end.