Помогите пожалуйста!Найти максимум из отрицательных элементов?Паскаль.

Очень просто. Если эти элементы в массиве, то
var a:array [1..100] of integer;
i,max:integer;
begin
randomize;
max:=-100;
for i:=1 to 100 do begin //здесь можешь уменьшить кол-во элементов
a[ i ]:=-100+random(200);
write(a[ i ],' ');end;
writeln;
for i:=1 to 100 do
if a[ i ]<0 then
if a[ i ]>max then max:=a[ i ];
writeln('Макс отрицательный элемент - ',max);
readln;
end.