Априорная вероятность

[deathz0r]

не заметил. Попробовал сделать так:

for i:=1 to 32 do
for z:=1 to Length(Memo1.Text) do
for j:=1 to 32 do
begin
if memo1.lines.Text[z]=massiv[j] then inc(povtor[j]);
apr[j]:=(povtor[j])/rrr;
Stringgrid1.Cells[0,j]:=massiv[j];
Stringgrid1.Cells[1,j]:=inttostr(povtor[j]);
Stringgrid1.Cells[2,j]:=floattostr(apr[j]);

указывает на ошибку в той же строке;

for i:=1 to 32 do
for z:=1 to Length(Memo1.Text) do
for j:=1 to 32 do
begin
if memo1.lines.Text[z]=massiv[j] then inc(povtor[j]);
Stringgrid1.Cells[0,j]:=massiv[j];
Stringgrid1.Cells[1,j]:=inttostr(povtor[j]);
Stringgrid1.Cells[2,j]:=floattostr(apr[j]);
end;
for j:=1 to 32 do
begin
apr[j]:=(povtor[j])/rrr;
end;
for k:=1 to 32 do
for z:=1 to Length(Memo1.Text) do
begin

еще попробовал вот так, ошибку не выдает, но виснет и не выводит результат.

[evg_m]

указывает на ошибку в той же строке

в какой?
какая ошибка?

вы думаете когда пишете программу или все исправления методрм тыка?
или опять

не заметил.

for i:=1 to 32 do
for z:=1 to Length(Memo1.Text) do
for j:=1 to 32 do
begin
if memo1.lines.Text[z]=massiv[j] then inc(povtor[j]);
apr[j]:=(povtor[j])/rrr;
Stringgrid1.Cells[0,j]:=massiv[j];
Stringgrid1.Cells[1,j]:=inttostr(povtor[j]);
Stringgrid1.Cells[2,j]:=floattostr(apr[j]);