Vetor

var

 Form1: TForm1;
 L:array[1..2]of integer;
 i,Total:integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
for i:= 1 to 2 do

L:=StrToInt(InputBox('Lucros','Digite o valor de lucros referente ao bimestre!',''));

end;

procedure TForm1.Button1Click(Sender: TObject);
begin

*Total:=L**+L*

ShowMessage('O total de lucros é:'+IntToStr(Total))
end;

end.


DEU ESSES PROBLEMAS!
O QUE SIGNIFICA ISSO!

[dcc32 Warning] Unit1.pas(35): W1019 For loop control variable must be simple local variable
[dcc32 Error] Unit1.pas(44): E2066 Missing operator or semicolon
[dcc32 Fatal Error] Project1.dpr(5): F2063 Could not compile used unit 'Unit1.pas'