Дан массив p n состоящий из n вещественных чисел. определить отдельно сумму положительных и отрицательных элементов массива. паскаль

begin

 var p:=SeqRandomReal(ReadInteger('n='),-99,99)

     .Select(t->Round(t,2)).ToArray;

 p.Println;

 Println('Сумма положительных',p.Where(r->r>0).Sum);

 Println('Сумма отрицательных',p.Where(r->r<0).Sum)

end.