Массив на Паскале???

[Павел Я]

Имеется массив вещественных чисел y1,y2,...yk, где k<=9. Написать программу вычисления суммы квадратов отрицательных элементов и вывести на экран значение минимального элемента. Спасибо

[Armorer]

s := 0;
min := A[0];
for i := 0 to k - 1 do
begin
if A[i] < 0 then 
 S := S + A[i]*A[i];
if A[i] < min then 
min := A[i];
end;
Writeln('min=', min );