var B: array [1..8] of integer;
    i: integer;
    max: integer;
begin

  writeln('Введите массив:');
  for i:=1 to 8 do  //заполнение массива
      read(B[i]);

  writeln('Исходный массив:');  //вывод массива
  for i:=1 to 8 do
      writeln('B[',i,'] = ',B[i]);

   max:=1;  //выбираем положительное число, тк оно не подходит по условию

   for i:=1 to 8 do
     if  (B[i] < 0) and ((B[i] > max) or (max = 1)) then  //отрицательный + (больше максимума или максимум еще не найден)
        max:=B[i];


   if max = 1 then
      writeln('Отрицательных нет')
    else
       writeln('Максимум среди отрицательных = ',max);


end.