дописать программу

[span80]

вот задание

Задача

1) Найти число интервалов на которое разбивается выборка значений случайной величины.
К= 1+3,22*ln(n) (округлить до целого)

2) Определить длину интервала h=(Xmax – Xmin)/К

3) Определить области середины выборки
Xср=(Хмах – Xmin)/2

Xср- центр исходного интервала

4) Подсчитать частоту попадания случайной величины в каждый i- интервал.

5) определить относительную частоту или вероятность попадания случайной величины в i-й интервал .


вот это я написал
помогите дописать.
var i,k,n:integer;
x: array[0..1000] of real;
f1,f2:text;
xmin,xmax,xsr,h:real;
begin
assign(f1,'c:\data2.dat'); {}
reset(f1);
assign(f2,'c:\obr_dan.dat');
rewrite(f2);
i:=0;
{}
while not eof(f1) do begin
i:=i+1;
readln(f1,x[i]);
{ writeln(f2,i,' ',x[i]);}
end;

n:=i;
{1}
k:=round(1+3.322*ln(n));
{2}

Xmin:=x[1];
xmax:=x[1];
for i:=1 to n do
begin
if x[i]<xmin then xmin:=x[i];
if x[i]>xmax then xmax:=x[i];
end;
h:=(xmax-xmin)/k;
{3}
Xsr:=(xmax-xmin)/2;
writeln(f2,' xmin=',xmin,' xmax= ', xmax,' h=', h, ' xsr=',xsr);

{4}



close(f1);
close(f2);
end.