Сформировать два новых целочисленных массива B и C из элементов исходного

// Дан целочисленный массив A размера N. 
// Назовем серией группу подряд идущих одинаковых элементов, 
// а длиной серии — количество этих элементов (длина серии может быть равна 1). 
// Сформировать два новых целочисленных массива B и C одинакового размера, 
// записав в массив B длины всех серий исходного массива, 
// а в массив C — значения элементов, образующих эти серии.
// PascalABC.NET. lamed
const
  n = 20;
var
  a,b,c: array[1..n] of integer;
  i,k: integer;
  curr,len: integer;
begin
  randomize;
  for i:= 1 to n do
    a[i] := random(5);
  curr := a[1];
  len := 1;
  k:= 0;
  for i:= 2 to n do
    if a[i]=curr then
      inc(len)
    else begin
      inc(k);
      b[k]:= len;
      c[k]:= curr;
      curr:= a[i];
      len := 1;
    end;
  write('a->');
  for i:= 1 to n do
    write(a[i],';');
  writeln;
  write('Серии:');
  for i:= 1 to k do
    write(c[i],'(',b[i],');');
  writeln;
end.

{ Дан целочисленный массив A размера N. 
 Назовем серией группу подряд идущих одинаковых элементов, 
 а длиной серии — количество этих элементов (длина серии может быть равна 1). 
 Сформировать два новых целочисленных массива B и C одинакового размера, 
 записав в массив B длины всех серий исходного массива, 
 а в массив C — значения элементов, образующих эти серии.
 PascalABC.NET } 
uses
  Crt;
const
  MaxN = 20;
var
  a,b,c: array[1..MaxN] of integer;
  i,k,n: integer;
  curr,len: integer;
begin
  readln(n);
  if not n in [1..MaxN] then
    begin
      writeln('Нельзя построить');
      readln;
      exit;
    end;
 
  randomize;
  for i:= 1 to n do
    a[i] := random(5);
  curr := a[1];
  len := 1;
  k:= 0;
  for i:= 2 to n do
    if a[i]=curr then
      inc(len)
    else begin
      inc(k);
      b[k]:= len;
      c[k]:= curr;
      curr:= a[i];
      len := 1;
    end;
  inc(k);
  b[k]:= len;
  c[k]:= curr;
 
  clrscr;
  for i:= 1 to 30 do write(' ');
  writeln('N = ',n);
  writeln; writeln;
  for i:= 1 to 10 do write(' ');
  write('A:':6);
  for i:= 1 to n do
    write(a[i]:6);
  writeln;
  writeln;
  for i:= 1 to 10 do write(' ');
  write('B:':8);
  for i:= 1 to k do
    write(b[i]:6);
  writeln;
  writeln;
  for i:= 1 to 10 do write(' ');
  write('C:':8);
  for i:= 1 to k do
    write(c[i]:6);
  writeln;
  readln;
end.

for i:= 1 to 30 do write(' ');
  writeln('N = ',n);
  writeln; writeln;
 
  for i:= 1 to 10 do write(' ');
  write('A:':6);