program mxOut;

const N = 10;

var a : array[1..N] of integer;
    i, j, mx, cnt, sz : integer;

begin
  //Генерируем массив
  for i := 1 to N do
  begin
    a[i] := Random(10);
    write(a[i]);
    write(' ');
  end;
  writeln;

  //Находим максимальный элемент
  mx := -999999;
  for i := 1 to N do
  begin
    if a[i] > mx then
    begin
      mx := a[i];
    end;
  end;
  writeln(mx);

  //Посчитаем колличество максимальных
  cnt := 0;
  for i := 1 to N do
  begin
    if a[i] = mx then
    begin
      cnt := cnt + 1;
    end;
  end;

  //'Удалим' максимальные
  for i := N downto 1 do
  begin
    if a[i] = mx then
    begin
      for j := i to N - 1 do
      begin
        a[j] := a[j + 1];
      end;
    end;
  end;

  sz := N - cnt; //Новый размер массива

  //Выведем массив

  for i := 1 to sz do
  begin
    write(a[i]);
    write(' ');
  end;

end.