ajuda com vetore em delphi

Arthur2010 · 12 de setembro de 2010

Bom dia galera, to com problemas para utilizar vetores em delphi, seriam 3 vetores: nota1,nota2 e nome, então o programa ia calculando a média de cada aluno, mas não funciona.. rs rs

alguém pode me ajudar?

procedure TForm1.btnCalculaMediaClick(Sender: TObject);

var

  vetornota1:array [1..5] of real;
  vetornota2:array [1..5] of real;
  vetornome:array [1..5] of string;
  media:real;
  i:integer;

begin
   vetornota1[i]:=0;
   vetornota2[i]:=0;
   media:=0;

    for i := 1 to 5 do
       vetornota1[i]:=StrToFloat(ednota1.text);
       vetornota2[i]:=StrToFloat(ednota2.text);

       media:=(vetornota1[i]+vetornota2[i])/2;
       labmedia.Caption:=FormatFloat(',0.00',media);



end;