Удалить из массива все элементы, равные значению первого элемента.

type 
A1=array [1..100] of real; 
var 
A:array [1..100] of A1; 
i,j,m,n,x:integer; 
sum,sr:real; 
B:A1; 
 
begin 
write('Введите количество строк: '); 
readln(m); 
write('Введите количество столбов: '); 
readln(n); 
for i:=1 to m do 
for j:=1 to n do 
a[i,j]:=random(100); 
writeln; 
writeln('Матрица: '); 
writeln; 
 
for i:=1 to m do begin 
for j:=1 to n do write('|',a[i,j]:3,'|'); 
writeln; 
end; 
 
writeln; 
For j:=1 to n do begin 
sum:=0; x:=0; 
For i:=1 to n do 
sum:=sum+A[i,j]; sr:=sum/n; 
For i:=1 to n do If A[i,j]>sr then x:=x+1; 
writeln('Кол-во элементов в ',j,' столбце: ',x); 
end; 
end.

const n=20;
var a: array [1..n] of integer;
    i,j:byte;
begin
randomize;
writeln('Исходный массив');
for i:=1 to n do
 begin
  a[i]:=1+random(5);
  write(a[i]:3);
 end;
writeln;
j:=1;   //счётчик не равных первому, кроме первого
for i:=2 to n do //проходим по массиву
if a[i]<>a[1] then  //пропускаем не равные первому
 begin
  inc(j);
  if j<i then a[j]:=a[i]; //если равен первому, на их место пишем следующие
 end;
if j=0 then write('Все элементы удалены')
else if j=n then write('В массиве нет элементов, равных первому')
else
 begin
  writeln('Удаление равных первому');
  for i:=1 to j do write(a[i]:3);
 end;
end.