Дан одномерный массив z элементов .Найти сумму отрицательных и положительных элементов массива

Const K = 10; Var Z:array[1..K] of integer; i:integer; P,O:real; Begin For i:= 1 to K do     Begin     Z[i]:=random(21)-10;     Write(Z[i],' ');     if Z[i]<0 then O:=O+Z[i]     else P:=P+Z[i];     End; WriteLn; WriteLn('Сумма положительных элементов: ',P); WriteLn('Сумма отрицательных элементов: ',O); End. То же, но с вводом с клавы: Const K = 10; Var Z:array[1..K] of integer; i:integer; P,O:real; Begin WriteLn('Введите элементы массива:'); For i:= 1 to K do     Begin     Read(Z[i]);     if Z[i]<0 then O:=O+Z[i]     else P:=P+Z[i];     End; WriteLn; WriteLn('Сумма положительных элементов: ',P); WriteLn('Сумма отрицательных элементов: ',O); End.