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

uses crt;
var a:array[1..100] of integer;
    n,i,j,k,p:byte;
begin
repeat
write('Размер последовательности от 2 до 100 n=');
read(n);
until n in [2..100];
writeln('Введите элементы массива:');
for i:=1 to n do
 begin
  write('a[',i,']=');
  read(a[i]);
 end;
clrscr;
writeln('Исходный массив:');
for i:=1 to n do
write(a[i],' ');
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],' ');
readln
end.

uses crt;
const n=6;
var a:array[1..n,1..n] of integer;
    b:array[1..(n*n) div 2-n] of integer;//размер массива=половина матрицы без  диагонали
    i,j,k,m:byte;
begin
randomize;
writeln('Массив:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(50);
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln;
write('Введите целое число k=');
read(k);
m:=0;
for i:=2 to n do
for j:=1 to i-1 do
if(a[i,j]>=i+j)and(a[i,j]<k) then
 begin
  m:=m+1;
  b[m]:=a[i,j];
 end;
if m=0 then write('Элементов, удовлетворяющих условию нет')
else
 begin
  writeln('Массив В:');
  for i:=1 to m do
  write(b[i]:4);
 end;
end.