Дана последовательность найти наибольшее из всех отрицательных чисел. нужен код .паскаль

Var
a:array [1..10] of integer;
i,m:integer;
begin
for i:= 1 to 10 do
a[i]:= Random(-100,100);
writeln(a);
for i:=1 to 10 do
if a[i]<0 then m:=a[i];
for i:=1 to 10 do
if (a[i]<0)and(a[i]>m) then m:=a[i];
writeln(m)
end.