Fórum trabalho para nota #150264

oi tudo bem,este é um trabalho para nota,e estou com alguns problemas,gostaria que vc desse uma olhada e visse onde eu estou errando,porque nos resultados as porcentagens não me parecem corretas,
desde já agradeço!!! abaixo do enunciado eu coloquei como eu fiz.


DETERMINAR AS POSSIBILIDADES DE OCORRENCIA DE RESULTADOS CARA E COROA NA SEQUENCIA DE 1000 LANÇAMENTOS VÁLIDOS DE 3 MOEDAS ,SENDO 1 DE R$ 0,25,1 DE R$ 0,50 E 1 DE R$ 1,00
AS MOEDAS SÃO EXTRAIDAS ALEATORIAMENTE DE UM RECIPIENTE.
APRESENTAR AO FINAL.
- ¬ DE MOEDAS DE 0,25 LANÇADAS
- ¬ DE MOEDAS DE 0,50 LANÇADAS
- ¬ DE MOEDAS DE 1,00 LANÇADAS

- ¬ DE RESULTADO CARA
MOEDAS DE 0,25
MOEDAS DE 0,50
MOEDAS DE 1,00

- ¬ DE RESULTADO COROA
MOEDAS DE 0,25
MOEDAS DE 0,50
MOEDAS DE 1,00

- ¬ DE LANÇAMENTOS INVÁLIDOS
--------------------------------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
m25,m50,m1,rcaram25,rcaram50,rcaram1,rcoroam25,rcoroam50,rcoroam1:real;
vetor : array[0..5] of integer;
begin
for i := 0 to 1000 do
inc(vetor[random(6)]);
m25 := (vetor[0] + vetor[3]/ i)* 100;//¬ DE MOEDAS DE 0,25 LANÇADAS
m50 := (vetor[1] + vetor[4]/ i)* 100;//- ¬ DE MOEDAS DE 0,50 LANÇADAS
m1:= (vetor[2] + vetor[5]/ i)* 100;//- ¬ DE MOEDAS DE 1,00 LANÇADAS
edit1.text:=floattostrf(m25,ffFixed,6,2);
edit2.text:=floattostrf(m50,ffFixed,6,2);
edit3.text:=floattostrf(m1,ffFixed,6,2);
//- ¬ DE RESULTADO CARA
rcaram25:= (vetor[0]/ i)* 100;//MOEDAS DE 0,25
rcaram50:= (vetor[1]/ i)* 100;//MOEDAS DE 0,50
rcaram1:= (vetor[2]/ i)* 100;//MOEDAS DE 1,00
edit4.text:=FloatToStrF(rcaram25,ffFixed,6,2);

edit5.text:=floattostrf(rcaram50,ffFixed,6,2);
edit6.text:=floattostrf(rcaram1,ffFixed,6,2);

//- ¬ DE RESULTADO COROA
rcoroam25:= (vetor[3]/ i)* 100;//MOEDAS DE 0,25
rcoroam50:= (vetor[4]/ i)* 100;//MOEDAS DE 0,50
rcoroam1:= (vetor[5]/ i)* 100;//MOEDAS DE 1,00
edit7.text:=floattostrf(rcoroam25,ffFixed,6,2);
edit8.text:=floattostrf(rcoroam50,ffFixed,6,2);
edit9.text:=floattostrf(rcoroam1,ffFixed,6,2);

//- ¬ DE LANÇAMENTOS INVÁLIDOS



end;