Преобразовать массив, увеличив1|уменьшив2 каждую его серию на один элемент.

uses crt;
var a:array[1..30] of byte;
    n,i,j,k,p:byte;
begin
randomize;
n:=30;
writeln('Массив:');
for i:=1 to n do
 begin
  a[i]:=random(10);
  write(a[i],' ');
 end;
writeln;
writeln;
i:=2;
while i<=n do
if a[i]=a[i-1] then
  begin
   j:=i;k:=1;
   while (a[j]=a[j-1])and(j<n) do
    begin
     j:=j+1;
     k:=k+1;
    end;
   if j>n then n:=n-1
   else
    begin
     for p:=j-1 to n-1 do
     a[p]:=a[p+1];
     n:=n-1;
    end;
   i:=i+k-1;
  end
else i:=i+1;
writeln('Уменьшение серий одинаковых чисел');
for i:=1 to n do
write(a[i],' ');
end.

uses crt;
var a:array[1..60] of byte;
    n,i,j,k,p:byte;
begin
randomize;
n:=30;
writeln('Массив:');
for i:=1 to n do
 begin
  a[i]:=random(10);
  write(a[i],' ');
 end;
writeln;
writeln;
i:=2;
while i<=n do
if a[i]=a[i-1] then
  begin
   j:=i;k:=1;
   while (a[j]=a[j-1])and(j<n) do
    begin
     j:=j+1;
     k:=k+1;
    end;
   if j>n then
    begin
     n:=n+1;
     a[n]:=a[n-1];
    end
   else
    begin
     n:=n+1;
     for p:=n downto j+1 do
     a[p]:=a[p-1];
     a[j]:=a[j-1];
    end;
   i:=i+k;
  end
else i:=i+1;
writeln('Увеличение серий одинаковых чисел');
for i:=1 to n do
write(a[i],' ');
end.