DELPHI 有关问题 急

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);