Получить из исходного массива новый массив, исключив из него все элементы с максимальным значением

const n = 10;
var a:array[1..n]of real;
    b:array[1..n]of real;
i,k,j:integer;
max:real;
 
begin
j:=1;
for i:=1 to n do
  a[i]:=random(3);
max:=a[1];
for i:=1 to n do
  if a[i] > max then max:=a[i];
for i:=1 to n do
  if a[i]<>max then begin b[j]:=a[i]; inc(j);end; 
  
for i:=1 to n do
write(a[i]:3);
writeln;
 
for i:=1 to j-1 do
write(b[i]:3);
 
end.

program z1625566_1; {с дополнительным массивом}
const n=10;
  var a,b:array [1..n] of integer;
      i,k,max:integer;
begin
 randomize;
 writeln('Исходный массив:');
 for i:=1 to n do
   begin a[i]:=random(5)-2; write(a[i]:3)  end;
 writeln;
 max:=a[1];
 for i:=2 to n do
  if max<a[i] then max:=a[i];
 k:=0;
 for i:=1 to n do
 if a[i]<>max
  then begin k:=k+1; b[k]:=a[i] end;
 writeln('Результирующий массив:');
 for i:=1 to k do
   write(b[i]:3)
end.

Program z1625566_2; {Вариант 2 без дополнительного массива}
 const n=10;        {извиняюсь, очень подробно, для начинающих}
 var a,b:array [1..n] of integer;
     i,j,x,k,max:integer;
begin
 cls; randomize;
 writeln('Исходный массив:');
 for i:=1 to n do
   begin a[i]:=random(5)-2; write(a[i]:3) end;
 writeln;
 max:=a[1];
 for i:=2 to n do
  if max<a[i] then max:=a[i];
 k:=0;
 for i:=1 to n do
  if a[i]=max then k:=k+1;
 for i:=n downto 1 do
 if a[i]=max
  then
    for j:=i+1 to n do
     a[j-1]:=a[j];
 writeln('Результирующий массив:');
 for i:=1 to n-k do
   write(a[i]:3);
  writeln;
end.

program z1625566_2tr;                                  {Вариант 2 без дополнительного массива }
const n=5;                                             {подробно, с частичной трассировкой}
  var a,b:array [1..n] of integer;
      i,j,x,k,max:integer;                             ii:integer;
begin
 cls; randomize;
 writeln('Исходный массив:');
 for i:=1 to n do
   begin a[i]:=random(5)-2; write(a[i]:3) end;
 writeln;
 max:=a[1];
 for i:=2 to n do
  if max<a[i] then max:=a[i];                           writeln('max=',max);
 
 k:=0;
 for i:=1 to n do
  if a[i]=max then k:=k+1;                              writeln('kmax=',k);
 
 for i:=n downto 1 do                             begin writeln('i=',i);
 if a[i]=max
  then                                            begin writeln('a[',i,']=','max ',a[i],'=',max,' ',a[i]=max);
    for j:=i+1 to n do                            begin
     a[j-1]:=a[j];                                for ii:=1 to n do write(a[ii]:3);writeln; end;
   end;                                                                                     end;
 
 writeln('Результирующий массив:');
 for i:=1 to n-k do
   write(a[i]:3);
  writeln;
end.

program z1625566_3;             {Вариант 3 без дополнительного массива}
 const n=10;                    {поиск max и k(max) в одном цикле}
 var a:array [1..n] of integer;
     i,j,k,max:integer;
 
 max:=a[1]; k:=1;
 for i:=2 to n do
  if a[i]=max
   then k:=k+1
   else if max<a[i]
         then begin max:=a[i]; k:=1 end;