вычислить компоненты вектора

[furt]

Исправьте ошибку
вычислить компоненты вектора x(x1...x8) в зависимости от условия.Выбрать из них положительные числа и найти среднее арифмет квадратов этих чисел, переписав получ значения в массив b(b1....bn)


uses crt;
const a=0.5;
type mas=array[0..8]of real;
var x,m,c,p,b:mas; k:integer; sr,s:real;
procedure vvod(n:integer; var c:mas);
var i:integer;
begin
for i:=1 to n do
readln(c[i]);
end;
procedure pechat(c:mas; n:integer);
var i:integer;
begin
for i:=1 to n do writeln(c[i]);
end;
procedure formula(n:integer; x:mas);
var i:integer; s:real;
begin
for i:=1 to n do
if sin(i+a)>0.5 then x[i]:=exp(sqrt(i+1))+2
else
x[i]:=3*sin(i+1)/cos(i+1);
end;

procedure ARIF (c:mas;n:integer; var m,b:mas; var k:integer; var s:real);
var i:integer;
begin
s:=0;k:=0;
for i:=1 to n do begin
if c[i]>0 then begin
b[k]:=c[i];
k:=k+1;
s:=s+(c[i]*c[i]) ;

end;

sr:=s/n;

m[k]:=sr;
end; end;
begin
writeln('vvedite massiv C');
vvod(8,c);
writeln(' massiv C');
pechat(c,8);
arif(c,8,m,b,k,s);
writeln(' srednee');
pechat(m,8);
writeln('Ïîëîæèòåëüíûå');
pechat(b,k-1);

end.