МАССИВ к7 содержит 10 элементов целого типа положительных, отрицательных и равных 0.среди отрицательных найти маx.

var
a:array [1..10] of longint;
i,max:longint;
begin
max:=-1000000;
For i:=1 to 10 do Read(a);
For i:=1 to 10 do
if a<0 then
if a>max then max:=a;
Write(max);
end.