DELPHI 问题 急！！！！

问题代码如下： 点击运行可以，但输入完数字后点BUTTON后提示出错 不能接着运行

这是为什么




unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Memo1: TMemo;
Label1: TLabel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var

a:array of integer;
t,m,i:integer;
begin
setlength(a,6); //设置含7个元素的数组
for i:=0 to 6 do
a[i]:=strtoint(memo1.Lines[i]); //从MEMO1中读取元素
for i:=0 to 5 do
if a[i]>a[i+1] then //7个数比较大小，最大的为a[6]；
begin
t:=a[i];a[i]:=a[i+1];a[i+1]:=t;
end;
memo1.lines.add('去掉一个最高分：'+inttostr(a[6])); //输出最大数
for i:=5 downto 1 do
if a[i]<a[i-1] then
begin
t:=a[i-1];a[i]:=a[i-1];a[i-1]:=t; //前面6个数比较大小，最小的为a[0]
end;
m:=a[1]+a[2]+a[3]+a[4]+a[5]+a[6]; //去掉以最大小后的总和
memo1.lines.add('去掉一个最低分：'+inttostr(a[0]));
memo1.lines.add('选手最后得分'+inttostr(m));







end;

end.








[解决办法]
setlength(a,7);