Помогите пожалуйста, очень срочно!, Снова про массивы Опции

[goosberry]

Дан массив из 10 целых элементов. Найти среднее арифметическое отрицательных элементов.
Вот что у меня получилось

 
program zadacha;
uses crt;
var: x:array [1..10] of integer;
i,S,K:integer;
Sr:real;
begin clrscr;
write ('Введите массив');
for i:=1 to 10 do readln (x[i]);
for i:=1 to 10 do if x[i]<0 then begin K:=K+1; S:=S+x[i];end;
sr:=s/k;
write (Sr);
readkey;
end.

Только ответ какой-то не верный получается. В чём причина?
И ещё не подскажите как записать эту задачу в виде блок-схемы?

[volvo]

В большинстве случаев результат программы получается меньше, чем по моим рассчётам без компьютера.

Приводи данные, с которыми проверяется программа, и свои расчеты, что ты ХОЧЕШЬ видеть на выходе, посмотрим, где неправильно. Иначе это - "переливание из пустого в порожнее"...