Куда надо вставить mas[i] mod 2=0 чтобы генерировались все 18 элементов? Создайте массив из 18 элементов. Элементы могут принимать чётные значения от 0 до 700.
Выведите на экран:
 Весь массив.
 Наибольший элемент массива.
 Номер наименьшего элемента массива.

program Arrays;

var

 input: array[Integer] of Integer;

 i: Integer;

 largestElement: Integer = 0;

 smallestElement: Integer = 999;

 smallestElementPosition: Integer = 18;

begin

 Randomize;

 for i:=0 to 18 do

   input[i] := Random(700);

 writeln('Весь массив:');

 for i:=0 to 18 do

 begin

   writeln(i, ': ', input[i]);

   if largestElement < input[i] then

     largestElement := input[i];

   if smallestElement > input[i] then

   begin

     smallestElement := input[i];

     smallestElementPosition := i;

   end;

 end;

 writeln('Наибольший элемент массива:', largestElement);

 writeln('Позиция наименьшего элемента:', smallestElementPosition);

end.