Надо сделать в паскале 1)дан одномерный массив вещественных чисел. найти минимальный элемент массива. 2) дана последовательность 7 чисел. вычислите сумму элементов данной последовательности меньших нуля.

Vara:array[1..100]of integer;
i,n,m:integer;
begin
m:=999;
Writeln('введите размерность массивов:'); 
Readln(n); 
For i:=1 to n do 
Readln (a[i]);
for i:=1 to n do
begin
if(a[i]<m) then
m:=a[i];
end;
writeln(m);
end.
ДЕРЖИ ПЕРВОЕ ЗАДАНИЕ!