Одномерный массив E[11] Найти максимальный из отрицательных элементов

Program al;

var e:array [1 ... 11] of integer;

max, i:integer;

begin

write ('vvedite massiv ');

for i: = 1 to 11 do

read (e[i]);

max:=-10000;

for i: = 1 to 11 do

if (e[i]max)

then

max : = e[i];

writeln ('max=', max);

readln;

end.